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Voorwoord 


Dit boek biedt een aantal programma’s. U kunt 
kiezen uit verschillende - hopelijk voor u nuttige - 
onderwerpen, verdeeld over 10 hoofdstukken. 

Zo vindt u onder andere: rekenen - waarvoor de 
computer eigenlijk is gemaakt - conversie, spelle- 
tjes, morse. Ik heb getracht de programma’s han- 
delbaar te maken, dat wil zeggen dat de gegevens 
die voor het verloop van het programma nodig zijn 
op een zo eenvoudig mogelijke wijze kunnen wor- 
den ingevoerd, terwijl het programma duidelijk 
laat merken wanneer er gegevens worden verlangd 
en zo ja, welke. Bij elk programma is dan ook een 
beschrijving gegeven van de manier waarop het 
moet worden gebruikt. 

Aan de meeste programma’s zijn een aantal REM- 
statements toegevoegd. Die zijn bedoeld voor hen 
die het verloop van het programma willen volgen 
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en eventueel verbeteringen of veranderingen willen 
aanbrengen. Bij het intoetsen van het programma 
geven deze regels wel extra werk, maar als u ze niet 
nodig denkt te hebben dan laat u ze gewoon weg. 
Dat is ook het geval met de aanwijzingen die bij 
sommige programma’s staan. Deze zijn te be- 
schouwen als korte gebruiksaanwijzingen die u ten 
dienste staan, als u het programma na verloop van 
tijd weer eens van stal haalt. U hoeft dan de be- 
schrijving niet meer door te lezen. 


Ten behoeve van de leesbaarheid zijn aan de pro- 
grammaregels een aantal spaties toegevoegd. Ook 
al ten gunste van de leesbaarheid is de lengte van 
de regels beperkt tot veertig karakters, inclusief de 
spaties. Dit kan zo hier en daar wel eens tot een wat 
vreemde constructie hebben geleid. 


M. B. Immerzeel 


Bij een aantal programma’s kunt u een werkwijze kiezen door een bepaalde letter 
in te toetsen. U dient daarbij het lettertype (hoofdletter of kleine letter) te gebruiken 
dat ook in de tekst van dit boekje of op het scherm hiervoor is gebruikt. 


1. Het leren rekenen met de computer 


Dat de computer, mits op de juiste de wijze toege- 
past, heel goed bij het onderwijs op school kan 
worden gebruikt, zal zo langzamerhand wel be- 
kend zijn. Eén van de toepassingen is het oefenen 
in rekenen, het cijferen, waarbij bewerkingen met 
meer of minder moeilijke getallen moeten worden 
uitgevoerd. 

Er volgen nu drie programma’s waarmee u uw kin- 
deren kunt laten oefenen in het cijferen zodat ze 
daarin een grotere vaardigheid kunnen krijgen. Er 
zijn vijf moelijkheidsgraden voor de opgaven 
waarvan de eerste twee zeker geschikt zijn voor het 
oefenen in hoofdrekenen. Deze moeilijkheidsgra- 
den kunnen worden gekozen met de toetsen 1 tot 
en met 5 en het laagste cijfer geeft ook de laagste 
moelijkheidsgraad. 

Er wordt een serie van twintig opgaven op het 
scherm geprojecteerd, steeds één opgave tegelijk. 
Deze opgaven worden steeds opnieuw door de 
computer verzonnen zodat, indien in een serie met 
een bepaalde moeilijkheidsgraad wordt herhaald, 
voor elke serie steeds andere opgaven kunnen wor- 
den verwacht. Overigens kan het bij de laagste 
moeilijkheidsgraad ook wel eens gebeuren dat bin- 
nen een serie meerdere gelijke opgaven voorko- 
men. Wordt op een opgave een foutief antwoord 
gegeven dan wordt dit gemeld en wordt nog een 
keer de gelegenheid gegeven het goede antwoord in 
te voeren. Na elke serie wordt het aantal goede ant- 
woorden vermeld: zijn dat er minder dan twaalf in 
rode, bij twaalf of meer in groene tekens. Zijn er 
twaalf of meer goede antwoorden gegeven dan 
volgt automatisch de volgende serie met de naast 
hogere moeilijkheidsgraad. Bij minder dan twaalf 
goede antwoorden volgt een serie met dezelfde 
moeilijkheidsgraad. 

Het eerste programma betreft het optellen en het 
aftrekken. Na het invoeren en het starten van het 
programma leest u op het scherm: 


OPTELLEN OF AFTREKKEN. 
KIES VOOR MOEILIJKHEIDS- 


GRAAD 1-5. 
? 


Nadat de betreffende toets is ingedrukt volgt: 


KIES NU VOOR + OF —? 


Direct na uw keuze verschijnt de eerste opgave. 
Hebt u de tweede moeilijkheidsgraad en optellen 
gekozen dan kan dat zijn: 


1 56+8=? 


na het invoeren van het getal 64 leest u eerst: 


GOED, VOLGENDE OPGAVE: 


en na enige tijd verschijnt opgave twee op de plaats 
van die van de eerste. Het geheel herhaalt zich tot 
en met de twintigste opgave. 


10 ’leren optellen en aftrekken 

20 'voor een echt random getal 

30 CLS: PRINT"druk op toets SELECT" 
40 AS=INKEY$: A=RND (1) 

50 IF A$<>CHR$(24) THEN 40 

60 KEY OFF 

70 'voor geel veld, groen kader 

80 'en witte tekst 

90 SCREEN 1: COLOR 15,10,3: WIDTH(32) 
100 'voor zwarte cijfers 

110 VPOKE 8197,26 

120 VPOKE 8198,26: VPOKE 8199, 26 

130 PRINT SPC(S) "Optellen en aftrekken." 
140 PRINT: PRINT"kies voor moeilijk"; 
150 PRINT"heidsgraad 1-5" 

160 ’invoer v.d. moeilijkheidsgraad 
170 INPUT A 

180 ‘alleen getallen van 1 t.e.m. 5 
190 IF A<1 OR A>S5 THEN 170 

200 'kies voor optellen of aftrekken. 
210 INPUT"Kies nu voor + of voor -"$ A$ 
220 'alleen + of -— 

230 IF A$<)>"-" AND A$<)"+" THEN 210 
240 'voor 20 opgaven 

250 FOR T=1 TO 20 

260 ’B is getal 1; C is getal 2 

270 B=RND(1): C= RND(1): S=0: Hel 
280 'geen getallen kleiner dan 1 
290 IF B<.1 THEN B=B#10;: GOTO 290 
300 IF C<.1 THEN C=C#10: GOTO 300 
310 'selecteer naar moeilijkheidsgraad 
320 ON A GOTO 340, 360, 390,420,450 


330 
340 
350 
360 
370 
380 


410 
420 


930 
940 
950 
960 
970 
980 
990 


’'getal van 1-10 

D=INT(1O#B+1) :E=INT(1O%C+1) :GOTO 480 
le getal van 10-100} 2e van 1-10 
D=INT (100#B+10) 

E=INT(10%C+1) : GOTO 480 n 

'le getal 1100-1000; 2e van 10-100 
D=INT (10004B+100) 

E=INT(100#C+10): GOTG 480 
‘getallen met 1 cijfer na de komma 
H=10: D=INT (10004B+100) /H 
E=INT(100%C+10)/H: GOTO 480 


'getallen met 2 cijfers na de komma 
H=100: D=INT(10000%B+1000) /H 
E=INT(1000%C+100) /H 


‘grootste getal eerst 
IF D<E THEN SWAP D,E 


‘print de opgave 

CLS: PRINT" "$DsA$j;Es "="; 
‘voer het resultaat in 
INPUT G 


‘selecteer naar opt. of aftr. 
IF A$="+" THEN 600 
‘bepaal of het antwoord goed is 


IF ABS(D-E-G){.1/H THEN 720 


‘antwoord niet goed 

PRINT: PRINT"fout, "s: GOTO 650 
‘bepaal of het antwoord goed is 
IF ABS(D+E-G)<,1/H THEN 720 


‘antwoord niet goed 
PRINT: PRINT"fout, "5 


‘bij eerste poging, noq een keer 

bij tweede poging, geef juiste antw. 
BEEP: IF S=1 THEN S=0: GOTO 750 
S=S+t1 

PRINT"probeer nog een keer" 

‘vertraag 

FOR I=1 TÔ 2000: NEXT: GOTO 500 


‘antwoord goed 

'R is aantal goede antwoorden 

R=R+1: PRINT:PRINT"goed "5 

'geef muziek 
PLAY"sim4661t90LBo5ggl6gi6glégléaboée" 


IF A$="-" THEN F=D-E ELSE F=D+E 
PRINT F 

‘bepaal of serie is voltooid 

IF T=20 THEN 810 


PRINT"Volgende opgave: " 

‘vertraag, geef volgende opgave 

FOR I=0 TO 2000: NEXT I: NEXT T 

de serie is voltooid. 

‘bij goed result. groene tekst 

'bij slecht result. rode tekst 

IF R<12 THEN COLOR 6 ELSE COLOR 12 
PRINT: PRINT: PRINT"je hebt "5 
PRINT R "sommen goed" 

PRINT: PRINT: PRINT 

‘bij slecht result geen hogere graad 
IF R<12 THEN 930 

‘hogere moeilijkheidsgraad 

A=At1: IF A=ó& THEN 1000 
PRINT"Volgende moeilijkheidsgraad"; 
PRINT A: R=0 

‘vertraag, daarna volgende serie 
FOR I=0O TO 5000: NEXT I 

COLOR 15: VPOKE 8197,26 

VPOKE 8198, 26 
VPOKE 8199, 26: 


CLS: GOTO 250 


1000 PRINT"Nog moeilijker kan "5 


1010 PRINT"ik het niet!": 


END 


Het tweede programma betreft het vermenigvuldi- 
gen en het delen. 

De bewerkingstekens die zijn toegepast zijn gelijk 
aan de symbolen die door de computer worden ge- 
bruikt, dus respectievelijk * en /. 

De werkwijze is verder gelijk aan die van het eerste 
programma. De delingen komen in alle moeilijk- 
heidsgraden steeds uit, dus zonder rest. 


CLS: 
A$S=INKEYS: 
IF A$<>CHRS(24) 
KEY OFF 


‘leren vermenigvuldigen en delen 


voor een echt random getal 
PRINT"druk op toets SELECT" 
A=RND (1) 

THEN 40 


voor geel veld, 
en witte tekst 


groen kader 


SCREEN 1: COLOR 15,10,3: WIDTH(32) 
‘voor zwarte cijfers 

VPOKE 8197, 26 

VPOKE 8198,26: VPOKE 8199, 26 
PRINT SPC(3) "Vermenigvuldigen "4 
PRINT"of delen" 

PRINT: PRINT"kies voor moeilijk"; 
PRINT"heidsgraad 1-5" 

‘invoer v.d. moeilijkheidsgraad 
INPUT A 

‘alleen getallen van 1 t.e.m. S 
IF A<1 OR A>S5 THEN 180 

‘kies voor vermenigvuld. of delen 
INPUT"Kies nu voor # of voor /"; A$ 
‘alleen % of / 

IF A$<>"4%" AND A${)"/" THEN 220 
‘voor 20 opgaven 

FOR T=i TO 20 

'B is getal 1; C is getal 2 
B=eRND(1) 5 C= RND(I): S=0; Hel 


‘geen getallen kleiner dan 1 

IF B{,1 THEN B=B#10; GOTO 300 

IF C4.1 THEN C=C#10: GOTO 310 
‘selecteer naar moeilijkheidsgraad 
ON A GOTO 350,370,400,430, 460 

'getal van 1-10 

D=INT(L1OB+1) GE=INT(1O%C+1) :GOTO 490 
'le getal van 10-100; 2e van 1-10 
D=INT (1004#B+10) 
E=INT(L1O%C+I) 5 
‘le getal 100-1000; 
D=INT (1000%B+100) 
E=INT(100%C+10); GOTO 490 

‘getallen met 1 cijfer na de komma 
H=10: D=INT(1000%B+100) /H 
E=INT(100#C+10) /H: GOTO 490 
‘getallen met 2 cijfers na de komma 
H=100: D=INT(10000#B+1000) /H 

E=INT (1000%C+100) /H 

‘grootste getal eerst 

IF DCE THEN SWAP D,E 

IF A$="/" THEN D=DtE 

‘print de opgave 

CLS: PRINT" "s;DsASjEs"="; 

voer het resultaat in 
INPUT G 

‘selecteer naar verm. 
IF A$="%" THEN 620 


GOTO 490 
2e van 10-100 


of delen 


570 ‘bepaal of het antwoord goed is 
580 IF ABS(D/E-G)<.1/H THEN 740 

590 ’antwoord niet goed 

600 PRINT: PRINT"fout, "js: GOTO 670 
610 ‘bepaal of het antwoord goed is 
620 IF ABS(D#E-G)<.1/H THEN 740 

630 ‘antwoord niet goed 

640 PRINT: PRINT"fout, "5 

650 ’bij eerste poging, nog een keer 
660 ’bij tweede poging, geef juiste antw. 
670 BEEP: IF S=1 THEN S=0: GOTO 770 
680 S=S+1 

690 PRINT"probeer nog een keer" 

700 ’vertraag 

210 FOR I=1 TO 2000: NEXT: GOTO 520 
720 ‘antwoord goed 

730 'R is aantal goede antwoorden 

740 R=R+1: PRINT:PRINT"goed "5 

750 'geef muziek 

760 PLAY"sim4661it9OL8oSagiégléglégiéaboéc" 
270 IF A$="/" THEN F=D/E ELSE F=D4E 
780 PRINT F 

290 ‘bepaal of serie is voltooid 

800 IF T=20 THEN 830 

810 PRINT"Volgende opgave" 

820 'vertraag, geef volgende opgave 
830 FOR I=O TO 2000: NEXT I: NEXT T 
840 'de serie is voltooid. 

850 ’bij goed result. groene tekst 

860 'bij slecht result, rode tekst 

870 IF R<12 THEN COLOR 6 ELSE COLOR 12 
880 PRINT: PRINT: PRINT"je hebt "5 

890 PRINT R “sommen goed" 

900 PRINT: PRINT: PRINT 

910 ‘bij slecht result geen hogere graad 
920 IF R<12 THEN 950 

930 'hogere moeilijkheidsgraad 

940 A=A+1l: IF A=ó& THEN 1020 

950 PRINT"Volgende moeilijkheidsgraad"; 
96G PRINT A: R=0 

970 'vertraag, daarna volgende serie 
980 FOR I=0 TO 5000: NEXT I 

990 COLOR 15: VPOKE 8197, 26 

1000 VPOKE 8198, 26 

1010 VPOKE 8199,26: CLS: GOTO 260 

1020 PRINT"Nog moeilijker kan "5 

1030 PRINT"ik het niet!" END 


Het derde programma betreft het machtsverheffen 
en het (vierkants)worteltrekken. Ook hierbij zijn 
de bewerkingstekens toegepast die ook door de 
computer worden gebruikt: 2 en SQR( ). De 
werkwijze is weer gelijk aan die van het eerste pro- 
gramma en de worteltrekkingen komen in alle 
moeilijkheidsgraden steeds uit, zonder rest. 

Bij de laagste moeilijkheidsgraad zal echter meer- 
dere keren dezelfde opgave voorkomen. 


10 ’leren machtsverh. en worteltr. 
20 CLS: PRINT"druk op toets SELECT" 
30 'voor een echt random getal 

40 AS=INKEY$: A=RND(1) 

50 IF A$<>CHR$(24) THEN 30 


60 KEY OFF 


zo. 


80 


voor geel veld, groen kader 


‘en witte tekst 
90 SCREEN 1: 


COLOR 15,10,3: WIDTH(32) 
‘voor zwarte cijfers 

VPOKE 8197,26 

VPOKE 8198,26: VPOKE 8199, 26 
PRINT “machtsverheffen "5 
PRINT"of worteltrekken" 

PRINT: PRINT"kies voor moeilijk"; 
PRINT"heidsgraad 1-5" 

‘invoer v.d. moeilijkheidsgraad 
INPUT A 

‘alleen getallen van 1 t.e.m. S 
IF A{1 OR A>5 THEN 180 

‘kies machtsverh. of worteltr. 
INPUT"Kies voor “2 of SQR"; A& 
‘alleen “2 of SQR 

IF A$&<>"*2" AND A$<>"SQR" THEN 220 
‘voor 20 opgaven 

FOR T=1i TO 20 

B is getal 1 

B=RND(1); S=0: H=l 

‘geen getallen kleiner dan 1 

IF B<.1 THEN B=B#10: GOTO 300 
selecteer naar moeilijkheidsgraad 
ON A GOTO 340, 360, 380,400, 420 
‘getal van 1-10 

D=INT(10#B): GOTO 430 

‘getal van 10-100 

D=INT (100#B+1): GOTO 430 

‘getal van 1100-1000 

D=INT (1000#B+10) : GOTO 430 

getal met 1 cijfer na de komma 
H=10: D=INT(1000#B+10)/H:GOTO 430 
‘getal met 2 cijfers na de komma 
H=100;: D=INT(100004B+100) /H 

IF A$="SQR" THEN D=D#D 

‘print de opgave 

CLS: PRINT T$“ 6) 

IF A$="“2" THEN PRINT Dj A$; "="} 


IF A$="SQR"THEN PRINT"SQR("D")="j 
‘voer het resultaat in 
INPUT G 


‘selecteer naar werkwijze 

IF A$=""2" THEN 570 

‘bepaal of het antwoord goed is 

IF ABS(SQR(D)-G)<,1/H THEN 690 
‘antwoord niet goed 

PRINT: PRINT"fout, "ís: GOTO 620 
‘bepaal of het antwoord goed is 

IF ABS(D*2-G)<.1/H THEN 690 
‘antwoord niet goed 

PRINT: PRINT"fout, "5 

‘bij eerste poging, nog een keer 
bij tweede poging, geef juiste antw, 
BEEP: IF S=1 THEN S=0: GOTQ 720 
S=S+1 

PRINT"probeer nog een keer" 
‘vertraag 

FOR I=1i TO 2000: NEXT: GOTO 450 
‘antwoord goed 

R is aantal goede antwoorden 
R=R+1: PRINT;PRINT"goed "5 

‘geef muziek 
PLAY"sim466ltPOL8oSggléaiéaiégiéaboác" 
IF A$="SQR"THEN F=SOR(D) ELSE F=D*2 
PRINT F 

‘bepaal of serie is voltooid 


750 
760 
270 
280 
790 
800 
810 
820 
830 
840 
850 
860 


IF T=20 THEN 780 

PRINT"Volgende opgave: " 
‘vertraag, geef volgende opgave 
FOR I=0 TO 2000; NEXT I: NEXT T 
‘de serie is voltooid. 

'bij goed result, groene tekst 
'bij slecht result. rode tekst 


IF R<12 THEN COLOR 6 ELSE COLOR 12 
PRINT: PRINT: PRINT"je hebt "5 

PRINT R "sommen goed" 

PRINT: PRINT: PRINT 

‘bij slecht result geen hogere graad 


870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 


IF RX12 THEN 900 

‘hogere moeilijkheidsgraad 

AzAt1l: IF A=é THEN 970 
PRINT"Volgende moeilijkheidsgraad"; 


PRINT A: R=O 
‘vertraag, daarna volgende serie 
FOR I=O TO 5000: NEXT I 


COLOR 15: VPOKE 8197,26 
VPOKE 8198, 26 
VPOKE 8199,26: CLS: GOTO 260 


PRINT"Nog moeilijker kan "5 
PRINT"ik het niet!": END 
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2. Het berekenen van een term in een reeks 


Het volgende programma laat u steeds één opgave 
oplossen. De opgave zal soms zeer eenvoudig zijn 
maar in andere gevallen bijzonder moeilijk. Omdat 
dit puur van het toeval afhangt, is er maar van af- 
gezien om een soort puntenwaardering te geven. 
Het programma ontwikkelt een reeks van vijf ge- 
tallen die in een onderling verband staan. Van deze 
vijf getallen worden de eerste vier op het scherm 
getoond. Het vijfde getal moet u berekenen en in- 
voeren. 

Heeft u de goede oplossing gegeven dan wordt dit 
vermeld en krijgt u een nieuwe opgave. Heeft u een 
foute oplossing gegeven dan wordt dit ook vermeld 
en krijgt u nog een keer de gelegenheid de goede 
oplossing in te voeren. Wordt opnieuw een foute 
oplossing gegeven dan krijgt u in beeld welk getal 
u had moeten invoeren. Ook dan wordt een nieuwe 
opgave getoond. 

De reeks kan oplopend zijn, dat wil zeggen dat elke 
volgende term groter is dan zijn voorgaande. De 
reeks kan ook aflopend zijn. Elke volgende term is 
dan kleiner dan zijn voorgaande. Een derde moge- 
lijkheid is dat de reeks intermitterend is. De termen 
zijn dan om en om groter en kleiner. Ook kunnen 
negatieve termen voorkomen. U ziet, er zijn moge- 
lijkheden genoeg om steeds weer voor een verras- 
sing te worden geplaatst. Soms wordt de volgende 
term gevonden door bij de voorgaande een getal op 
te tellen. Aan u de taak uit te vinden welk getal bij 
de vierde term moet worden opgeteld om de vijfde 
term te vinden. 

In andere gevallen is elke volgende term te vinden 
door de voorgaande met een bepaald getal te ver- 
menigvuldigen. 

Na het invoeren en het starten van het programma 
kunt u met ja of nee antwoorden of u een aanwij- 
zing nodig hebt. Antwoordt u met ja dan krijgt u 
de aanwijzing waarna u door de spatiebalk in te 
drukken weer terugkomt in het normale program- 
ma. Antwoordt u met nee dan wordt direct met het 
programma doorgegaan, hetgeen betekent dat u 
een reeks van vier getallen ziet. Deze reeks kan bij- 
voorbeeld zijn: 


In dit geval is bij de eerste term 4 —2=2 opgeteld, 
bij de tweede term 8—4=4 en bij de derde term 
14-8=6. Hieruit volgt dat u bij de vierde term 8 
moet optellen om de vijfde term te vinden. Uw ant- 
woord is: 


14+8=22 
De getoonde reeks had ook kunnen zijn: 
1 3 18 216 


Nu is de eerste term met 3 vermenigvuldigd: 
1*3=3, De tweede term is met 6 vermenigvuldigd: 
36 =18 en de derde met 12: 18*12=216. De ge- 
volgtrekking hieruit is dat u de vierde term met 24 
moet vermenigvuldigen om het juiste antwoord te 
vinden: 


216%24= 5184 


Deze voorbeelden waren beslist nog niet de moei- 
lijkste van de opgaven die mogelijk zijn. U zult 
zien dat dit programma echt niet alleen voor de wat 
oudere kinderen nuttig kan zijn! 


10 'termen van reeksen. 

20 ’voor een echt random getal 

30 PRINT"gebruik toets SELECT" 

40 A=RND(1): AS=INKEYS 

50 IF A$S<>CHR$(24) THEN 40 

60 INPUT"wil je uitleg, ja of nee";A$S 

70 IF A$="ja" THEN 570 

30 IF A$<>"nee" THEN 60 

90 'voor blauw veld en kader 

100 ’'en witte tekst 

110 SCREEN 1: COLOR 15,4,4: WIDTH(32) 
120 'voor groene cijfers 

130 VPOKE 8197,52: VPOKE 8198,52 

140 VPOKE 8199,52 

150 'def rnd getallen van 1 tot X 

160 DEF FNI(X)=INT(RND(1)X) +1 

170 ’rnd getallen voor A(O), B en C 

180 A(O)=FNI(3): B=FNI(3): C=FNI(2): E=O 
190 ’bij T=-l altenerende reeks 

200 T=i: IF FNI(2)<2 THEN T=-í 

210 'het berekenen v.d. termen A(1)-A(4) 
220 FOR N=i TO 4 

230 IF C=1 THEN A{N)=ABS(A(N-1)) +T“ (N) BEN 
240 IF C=2 THEN A(N)=ABS(A(N-1) JT" (N) BEN 
250 NEXT Ni: CLS 


‘voor een aflopende reeks 
IF FNI(2)<2 THEN 540 

‘het afbeelden van de reeks 
FOR N=0 TO 3: PRINT A(N) 5: 
‘invoeren van het antwoord 
PRINT: PRINT 

PRINT"Wat is het eerst volgende" 
INPUT"getal van de reeks"; 
‘bepaal of het antwoord juist is 
IF G{DA(4) THEN 440 

‘antwoord is goed 

PRINT: PRINT "juist, "5 

PRINT "de volgende reeks: " 
‘vertraag 

FOR N=0 TQ 3000: 


NEXT N 


NEXT N 


‘voor een volgende opgave 
GOTO 180 

‘antwoord is fout 

PRINT: PRINT "fout, "5 


‘na tweede poging geef antwoord 
IF E=l THEN 520 


E=E+1: PRINT"probeer nog een keer" 
‘vertraag 
FOR N=0 TO 3000: NEXT N 


‘voor de tweede poging 

CLS: GOTO 290 

PRINT"de volgende term is"A(4) 

FOR N=0O TO 7000: NEXT N: GOTO 180 
FOR N=0 TO 4: D(N)zA(N): NEXT N 

FOR N=0 TO 4: A(4-N)=D(N): NEXT N 
GOTO 290 

SCREEN O: WIDTH(40): COLOR 10,4,4 
PRINT "Op het scherm wordt "5 

PRINT "een reeks van getal-len "5 
PRINT "getoond die in een bepaald "5 
PRINT "verband tot elkaar staan." 
PRINT "Je moet nu het vijfde "5 
PRINT "getal van de reeksgeven." 
PRINT "Is de reeks bijvoorbeeld" 
PRINT: PRINT *1 3 5 7" 

PRINT: PRINT “dan is het vijfde "sj 
PRINT "cijfer 9," 

PRINT: PRINT "Gebruik de "5 

PRINT "spatiebalk voor het "5 

PRINT “vervolgenvan het "5 
PRINT "programma," 
A&S=INKEY$: IF A$<)CHR$(32) 
GOTO 110 


THEN 720 
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3. Conversie 


Nu volgen een aantal programma’s waarmee u ge- 
tallen of eenheden van een bepaald stelsel kunt om- 
zetten in een ander stelsel. De programma’s heb- 
ben ongeveer dezelfde opzet en geven ook dezelfde 
indeling op uw scherm. 


3.1. Conversie van inches naar millimeter v.v. 


Op het vasteland van Europa wordt het metrieke 
maatstelsel gehanteerd. Helaas is dat niet over de 
gehele wereld het geval en vinden we daarnaast ook 
nog het Engelse maatstelsel. Om ons van een opge- 
geven Engelse maat een voorstelling te kunnen ma- 
ken, is dan ook omrekening naar het metrieke stel- 
sel nodig. Het volgende programma geeft u de mo- 
gelijkheid een lengtemaat, opgegeven in inches, om 
te rekenen in millimeter. Ook het omgekeerde is 
mogelijk, omrekening van een lengtemaat in milli- 
meter naar inches. Dit kunt u kiezen door I/M of 
M/1 in te toetsen voor omzetting van respectieve- 
lijk van inches naar millimeter of van millimeter 
naar inches, Daarna kunt u de grootte van het getal 
invoeren. 

Heeft u gekozen voor conversie van inches naar 
millimeter en heeft u daarna het getal 4 ingevoerd 
dan geeft uw scherm het volgende weer: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 4 


4 INCHES KOMT OVEREEN MET 
101.6 MILLIMETER 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


Bij de conversie is ervan uitgegaan dat | inch over- 
eenkomt met 25.4 millimeter. 
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10 ’voor interrupt met 41 toets 

20 ON KEY GOSUB 440 

30 ‘conversie millimeter-Inches 

40 'voor blauw veld en kader 

50 'en witte letters, 

60 SCREEN 1: WIDTH(32); COLOR 15,4,4 
70 'voor zwarte cijfers 

80 VPOKE 8198,20: VPOKE 8199, 20 

90 'voor de titel van het programma 
100 GOSUB 450 

110 'keuze van de conversie 

120 PRINT: PRINT: PRINT 

130 PRINT "Wilt u van Inches naar "5 
140 PRINT "millime- ter (I/M),"5 

150 PRINT " of van millimeter" 

160 PRINT "naar Inches (M/I)"; 

170 INPUT K$ 

180 ‘opnieuw bij verkeerde invoer 
190 IF K$S<>"I/M" AND K$4>"M/I" THEN 60 
200 ’print opnieuw de titel 

210 GOSUB 450 

220 PRINT: PRINT: PRINT 

230 ‘invoeren van het getal 

240 INPUT "Welk getal";G? PRINT 

250 'selectie naar conversiekeuze 
260 IF K$="I/M" THEN 320 

270 ‘omrekening mm/Inches 

280 R=, 0393700787 #4G 

290 M$="millimeter":; N$=" Inches” 
300 GOTO 350 

310 ‘omrekening Inches/mm 

320 R=25.44G 

330 M$="Inches": N$=" millimeter" 
340 'het printen van het resultaat 
350 PRINT G;MS 

360 PRINT"komt overeen met" 

370 PRINT RiN&: PRINT: PRINT: PRINT 
380 PRINT"Gebruik voor een volgende" 
390 PRINT"conversie toets 41," 

400 ’schakel 41 toets in 

410 KEY(1) ON 

420 'wacht op interrupt 

430 GOTO 430 

440 KEY(1) OFF: RETURN 60 

450 CLS 

460 PRINTTAB(S) "conversie van eenheden” 
470 RETURN 


3.2. Conversie van foot naar meter v.v. 


Het volgende programma maakt het u mogelijk 
een lengtemaat die in Engelse voet (foot) is uitge- 
drukt, om te zetten in meters. Ook het omgekeerde 
is weer mogelijk. Voor de omzetting foot-meter 
moet u F/M intoetsen, voor het omzetten van 


meter naar foot M/F. Heeft u gekozen voor F/M 
en het getal 3 ingevoerd dan is het antwoord: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 3 


3 FEET KOMT OVEREEN MET 
‚9144 METER 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


Bij de conversie is ervan uitgegaan dat 1 foot over- 
eenkomt met 0.3048 meter. 


19 ‘conversie foot-meter 

20 'voor interrupt met f1 toets 

30 ON KEY GOSUB 440 

40 "voor blauw veld en kader 

50 ’'en witte letters. 

60 SCREEN 1: WIDTH(32): COLOR 15,4,4 
70 'voor zwarte cijfers 

80 VPOKE 8198,20: VPOKE 8199, 20 

90 'voor de titel van het programma 
100 GOSUB 450 

119 ’'keuze van de conversie 

120 PRINT: PRINT: PRINT 

130 PRINT "Wilt u van foot naar "5 
140 PRINT "meter (F/M)" 

159 PRINT "of van meter "5 

160 PRINT "naar foot (M/F)" 

170 INPUT K$ 

180 ‘opnieuw bij verkeerde invoer 
190 IF K$&<)"F/M" AND K$<>"M/F" THEN 60 
200 'print opnieuw de titel 

210 GOSUB 450 

220 PRINT: PRINT: PRINT 

230 ‘invoeren van het getal 

240 INPUT "Welk getal";G: PRINT 

259 'selectie naar conversiekeuze 
260 IF KS="F/M" THEN 320 

270 ‘omrekening meter/foot 

280 R=3. 2808399 HG 

290 M$="meter": N$=" foot" 

300 GOTO 350 

310 ‘omrekening foot /meter 

320 R=. 304846 

330 ="foot”: NS=" meter” 

340 'het printen van het resultaat 
350 PRINT G;M$; 

360 PRINT" komt overeen met" 

370 PRINT RiN$: PRINT: PRINT: PRINT 
380 PRINT"Gebruik voor een volgende" 
390 PRINT"conversie toets f1.* 


400 'schakel f1 toets in 

410 KEY(1) ON 

420 'wacht op interrupt 

430 GOTO 430 

440 KEY(1) OFF: RETURN 60 

450 CLS 

460 PRINTTAB(S) "conversie van eenheden" 
470 RETURN 


3.3. Conversie van mile naar kilometer v.v. 


Dit programma komt overeen met het voorgaande. 
Nu is het de conversie tussen mile en kilometer. 
Voor omzetting van mile naar kilometer moet u 
M/KM invoeren en voor omzetting van kilometer 
naar mile KM/M. Heeft u M/KM en het getal 2 in- 
gevoerd dan is het resultaat: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 2 


2 MILES KOMT OVEREEN MET 
3.218688 KILOMETER 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


Voor de conversie is ervan uitgegaan dat 1 mile 
overeenkomt met 1.609344 kilometer. 


10 ‘conversie mile-kilometer 

20 ‘voor interrupt met #1 toets 

30 ON KEY GOSUB 440 

40 ‘voor blauw veld en kader 

50 ‘en witte letters. 

60 SCREEN 1: WIDTH(32): COLOR 15,4,4 
70 ‘voor zwarte cijfers 

80 VPOKE 8198,20: VPOKE 8199, 20 

90 'voor de titel van het programma 
100 GOSUB 450 

110 ’keuze van de conversie 

120 PRINT: PRINT: PRINT 

130 PRINT "Wilt u van mile naar "5 
140 PRINT "kilometer (M/KM) "5 

150 PRINT * of van kilometer naar" 
160 PRINT "mile (KM/M)"; 

170 INPUT K$& 

180 ‘opnieuw bij verkeerde invoer 
190 IF K&<>"M/KM" AND KS<)"KM/M" THEN &0 
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200 'print opnieuw de titel 

210 GOSUB 450 

220 PRINT: PRINT: PRINT 

230 'invoeren van het getal 

240 INPUT "Welk getal";G: PRINT 

250 'selectie naar conversiekeuze 
260 IF K$="M/KM" THEN 320 

270 ‘omrekening kilometer/mile 

280 R=,621371193H4G 

290 M$="kilometer": N$=" miles" 

300 GOTO 350 

310 ‘omrekening mile/kilometer 

320 R=l,609344HG 

330 M$="miles": N$=" kilometer" 

340 'het printen van het resultaat 
350 PRINT G;M$ 

360 PRINT"komt overeen met" 

370 PRINT RiN$: PRINT: PRINT: PRINT 
380 PRINT"Gebruik voor een volgende" 
390 PRINT"conversie toets 41," 

4300 ’schakel fl toets in 

410 KEY(1) ON 

420 ‘wacht op interrupt 

430 GOTA 430 

440 KEY(1) OFF: RETURN 60 

450 CLS 

460 PRINTTAB(S) "conversie van eenheden" 
470 RETURN 


3.4. Conversie van gram naar ounce v.v. 


Ook bij het meten van massa’s worden in het En- 
gelse maatstelsel en het metrieke stelsel verschillen- 
de eenheden gebruikt. Het volgende programma is 
voor de omzetting van gram naar ounce. Dit om- 
zetten is ook weer in twee richtingen mogelijk. 


Voor de omzetting van gram naar ounce moet 
GR/O worden ingevoerd, voor de omzetting van 
ounce naar gram moet O/GR worden ingevoerd. 


Heeft u gekozen voor O/GR en heeft u het getal 7 
ingevoerd dan vertoont het scherm: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 7 


7 OUNCES KOMT OVEREEN MET 
198.446662 GRAM 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 
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Bij de conversie is ervan uitgegaan dat l ounce 
overeenkomt met 28.3495231 gram. 


10 'conversie ounce-gram 

20 'voor interrupt met #1 toets 

30 ON KEY GOSUB 440 

40 ’voor blauw veld en kader 

50 'en witte letters, 

60 SCREEN 1: WIDTH(32): COLOR 15,4,4 
70 ’'voor zwarte cijfers 

80 VPOKE 8198,20: VPOKE 8199, 20 

90 'voor de titel van het programma 
100 GOSUB 450 

110 'keuze van de conversie 

120 PRINT: PRINT: PRINT 

130 PRINT "Wilt u van ounce naar "5 
140 PRINT "gram": PRINT" (O/GR) "; 
150 PRINT * of van gram naar "j 

160 PRINT "ounce" 

170 INPUT" (GR/O) "jK$ 

180 ‘opnieuw bij verkeerde invoer 
190 IF K$&<>"O/GR" AND KS<)"GR/O0" THEN 60 
200 'print opnieuw de titel 

210 GOSUB 450 

220 PRINT: PRINT: PRINT 

230 'invoeren van het getal 

240 INPUT "Welk getal";G: PRINT 

250 'selectie naar conversiekeuze 
260 IF K&="O/GR" THEN 320 

270 ‘omrekening gram/ounce 

280 R=,035273962H#G 

290 M$="gram": N$=" ounces" 

300 GOTO 350 

310 ‘omrekening ounce/gram 

320 R=28, 3495231 HG 

330 M$="ounces": N$=" gram" 

340 'het printen van het resultaat 
350 PRINT G;M$ 

360 PRINT"komt overeen met" 

370 PRINT RiN$: PRINT: PRINT: PRINT 
380 PRINT"Gebruik voor een volgende" 
390 PRINT"conversie toets #1," 

400 'schakel f1 toets in 

410 KEY(1) ON 

420 'wacht op interrupt 

430 GOTO 430 

440 KEY(1) OFF: RETURN 60 

450 CLS 

460 PRINTTAEB(S) "conversie van eenheden" 
470 RETURN 


3.5. Conversie van pound naar kilogram v.v. 


Dit programma verloopt overeenkomstig het voor- 
gaande. Wilt u een omzetting van pound (libra, af- 
korting lb) naar kilogram dan dient u LB/KG in te 
voeren. Voor een omzetting van kilogram naar 
pound moet KG/LB worden ingevoerd. Hebt u ge- 
kozen voor LB/KG en heeft u het getal 4 ingevoerd 
dan is het resultaat: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 4 


4 POUNDS KOMT OVEREEN MET 
1.81436948 KILOGRAM 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


Voor de conversie is ervan uitgegaan dat 1 pound 
overeenkomt met 0.45359237 kilogram. 


210 
220 


‘conversie pound-kilogram 
‘voor interrupt met f1 toets 


ON KEY GOSUB 440 


‘voor blauw veld en kader 

‘en witte letters, 

SCREEN 1: WIDTH(32): COLOR 15,4,4 
‘voor zwarte cijfers 

VPOKE 8198,20: VPOKE 8199,20 


‘voor de titel van het programma 
GOSUB 450 

‘keuze van de conversie 

PRINT: PRINT: PRINT 

PRINT "Wilt u van pound naar "5 
PRINT "kilogram": PRINT" (LB/KG) "5 
PRINT * of van kilogram naar" 
PRINT "pound (KG/LB) "5 

INPUT K& 

‘opnieuw bij verkeerde invoer 
IF K&<{>"LB/KG" AND K${>"KG/LB" 
‘print opnieuw de titel 

GOSUB 450 

PRINT: PRINT: PRINT 

‘invoeren van het getal 

INPUT "Welk getal";G;: PRINT 
‘selectie naar conversiekeuze 
IF K$="LB/KG" THEN 320 
‘omrekening kilogram/pound 
R=2.20462262H4G 
M$="kilogram": 
GATO 350 
‘omrekening pound/kilogram 
R=.45359237H4G 

M$="pounds": N$="kilogram" 
‘het printen van het resultaat 
PRINT G;M$ 
PRINT"komt overeen 
PRINT RiN$: PRINT: PRINT: PRINT 
PRINT"Gebruik voor een volgende" 
PRINT"conversie toets 41." 
‘schakel f1 toets in 

KEY (1) ON 
‘wacht op 
GOTO 430 
KEY (1) OFF: 
CLS 
PRINTTAB(S) “conversie van eenheden" 
RETURN 


THEN 60 


N$="pounds" 


met * 


interrupt 


RETURN 60 


3.6. 


De 


Conversie van gallon naar liter v.v. 


gallon is een inhoudsmaat van het Engelse 


maatstelsel. Het volgende programma geeft de om- 
zetting tussen de gallon en de liter. Wilt u een om- 
zetting van de gallon naar de liter dan dient 
GAL/L te worden ingevoerd. Voor de omzetting 


van 
GA 
dan 


liter naar gallon: L/GAL. Heeft u voor 
L/L gekozen en heeft u het getal 3 ingevoerd 
vertoont het scherm: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 3 


3 GALLONS KOMT OVEREEN MET 
11.3562353 LITER 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


Voor de conversie is ervan uitgegaan dat 1 gallon 
overeenkomt met 3.78541178 liter. 


‘conversie gallon-liter 


‘voor interrupt met 41 toets 

ON KEY GOSUB 440 

‘voor blauw veld en kader 

‘en witte letters, 

SCREEN 1: WIDTH(32);: COLOR 15,4,4 
‘voor zwarte cijfers 

VPOKE 8198,20: VPOKE 8199, 20 


‘voor de titel van het programma 
GOSUB 450 

'keuze van de conversie 

PRINT: PRINT: PRINT 

PRINT "Wilt u van gallon naar "j 


PRINT "liter": PRINT" (GAL/L) "5 

PRINT * of van liter naar" 

PRINT "gallon (L/GAL) "3 

INPUT KS 

‘opnieuw bij verkeerde invoer 

IF K$S<>"GAL/L" AND K$<>"L/GAL" THEN 60 
‘print opnieuw de titel 

GOSUB 450 

PRINT: PRINT: PRINT 


‘invoeren van het getal 

INPUT "Welk getal";$G: PRINT 
‘selectie naar conversiekeuze 
IF K&$="GAL/L" THEN 320 
‘omrekening liter/gallon 


280 R=,264172052#4G 

290 M$="liter": N$="gallons" 

300 GOTO 350 

310 ‘omrekening gallon/liter 

320 R=3.78541178H4G 

330 M$="gallons": N$="liter" 

340 'het printen van het resultaat 
350 PRINT G;M$ 

360 PRINT"komt overeen met" 

370 PRINT RiN$: PRINT: PRINT: PRINT 
380 PRINT"Gebruik voor een volgende" 
390 PRINT"conversie toets 41," 

400 ‘schakel fl toets in 

410 KEY(1) ON 

420 ‘wacht op interrupt 

430 GOTQ 430 

440 KEY(1) OFF: RETURN 60 

450 CLS 

460 PRINTTAB(S) “conversie van eenheden” 
470 RETURN 


3.7, Conversie van graden naar radialen v.v. 


De grootte van een hoek is zowel in graden als in 
radialen uit te drukken. De omrekening tussen 
radialen en graden verzorgt het volgende program- 
ma. Wilt u een omrekening van graden naar radia- 
len dan moet GR/RD worden ingevoerd. Voor een 
omrekening van radialen naar graden voert u 
RD/GR in. Heeft u gekozen voor RD/GR en is het 
ingevoerde getal 3 dan is het resultaat: 


CONVERSIE VAN EENHEDEN. 


WELK GETAL? 3 


3 RADIALEN KOMT OVEREEN MET 
171.887339 GRADEN 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


Voor de conversie is ervan uitgegaan dat 1 radiaal 
overeenkomt met 57.2957795 graden. 


19 ‘conversie graden-radialen 
20 'voor interrupt met 41 toets 
30 ON KEY GOSUB 440 

40 'voor blauw veld en kader 


ons 
oo 


50 'en witte letters. 

60 SCREEN 1: WIDTH(32): COLOR 15,4,4 
70 'voor zwarte cijfers 

80 VPOKE 8198,20: VPOKE 8199, 20 

90 'voor de titel van het programma 
100 GOSUB 450 

110 'keuze van de conversie 

120 PRINT: PRINT: PRINT 

130 PRINT "Wilt u van graden naar "5 
140 PRINT “radialen”: PRINT" (GR/RD) "; 
150 PRINT " of van radialen naar" 
160 PRINT "graden (RD/GR) "5 

170 INPUT K$ 

180 ‘opnieuw bij verkeerde invoer 
190 IF K${)>"GR/RD" AND K$<>"RD/GR" THEN 60 
200 '’print opnieuw de titel 

210 GOSUB 450 

220 PRINT: PRINT: PRINT 

230 ’'invoeren van het getal 

240 INPUT "Welk getal";G: PRINT 

250 ’selectie naar conversiekeuze 
260 IF K$="RD/GR" THEN 320 

270 ‘omrekening graden/radialen 

280 R=,01745329252#4G 

290 M$="graden": N$="radialen" 

300 GOTO 350 

310 ‘omrekening radialen/graden 

320 R=57.2957795H4G 

330 M$="radialen": N$="graden" 

3409 'het printen van het resultaat 
350 PRINT G;M$ 

360 PRINT"komt overeen met" 

370 PRINT RiN$: PRINT: PRINT: PRINT 
380 PRINT"Gebruik voor een volgende" 
390 PRINT"conversie toets 41," 

400 ’schakel f1 toets in 

410 KEY(1) ON 

420 'wacht op interrupt 

430 GOTO 430 

440 KEY(1) OFF: RETURN 60 

450 CLS 

460 PRINTTAB(S) "conversie van eenheden" 
470 RETURN 


3.8. Conversie van Arabische naar Romeinse 
cijfers v.v. 


De tekens die wij normaal gebruiken voor het 
schrijven van getallen zijn Arabische cijfertekens. 
Op sommige wijzerplaten van klokken worden de 
uren met Romeinse cijfertekens aangegeven. Ook 
zien we deze tekens wel eens gebruikt op gebouwen 
om het bouwjaar aan te geven. Met het volgende 
programma is het mogelijk de getallen van de beide 
stelsels om te zetten. Wilt u van Arabische cijfers 
naar Romeinse cijfers dan voert u A/R in. Voor 
omzetting van getallen in Romeinse cijfers naar 
Arabische cijfers gebruikt u R/A. Heeft u A/R ge- 
kozen en is het ingevoerde getal 1984 dan is het 
resultaat: 


CONVERSIE VAN GETALLEN. 


WELK GETAL? 1984 


HET GETAL 1984 WORDT 
IN ROMEINSE TEKENS: MCMLXXXIV 


GEBRUIK VOOR EEN VOLGENDE 
CONVERSIE DE F1-TOETS. 


‘conversie Romeins-Arabisch 
DIM E(16) 

‘voor interrupt met f1 toets 
ON KEY GOSUB 720 


‘voor blauw veld en kader 

‘en witte letters. 

SCREEN 1: WIDTH(32): COLOR 15,4,4 
‘voor zwarte cijfers 

VPOKE 8198,20: VPOKE 8199,20 


‘voor de titel van het programma 


GOSUB 730 

keuze van de conversie 

PRINT: PRINT: PRINT 

PRINT "Wilt u van Romeins naar "5 
PRINT "Arabisch": PRINT" (R/A) "5 
PRINT " of van Arabisch naar" 
PRINT: PRINT "Romeins (A/R) "4 
INPUT K$ 


‘opnieuw bij verkeerde invoer 
IF K$S<>"R/A" AND K${>"A/R" THEN 70 
‘print opnieuw de titel 

GOSUB 730 

PRINT: PRINT: PRINT 

‘invoeren van het getal 

INPUT "Welk getal";G&: PRINT 
‘selectie naar conversiekeuze 
IF K$="R/A" THEN 480 
‘omrekening Arabisch/Romeins 
P$&(1)="I": Q$(I)="V"E RE(I)="X" 
P&(2)="X"; QE(2)="L": RS(2)="C* 


P$&(3)="C"; QE(I)="D"; RÉ(I)="M" 
P$&(4)="M"; E$=""; L=LEN(G$) 

‘geen getallen groter dan 3999 

IF VAL(G$)>3999 THEN 180 

T=L+1: FOR N=L TO 1 STEP -1 

C(N) =VAL (MIDS(G&,T-N, 1) ) 

IF C{N)=0 THEN 450 

AS(1)=PE(N): A$(2)=A$(1) +P$(N) 
AS(3)=AS(2) +PS(N) CAS (4) =PE(N) +Q0S(N) 
IF N=4 THEN 440 

AS(S5)=Q0E(N): A$(6)=AE(5) +PE(N) 
AS(7)=zA$(5)+AS(2) :AS(G)=A$(5) +A$(3) 
AS(9)=PS(N) +RS(N) 

ES=ES+AS(C(N) ) 

NEXT N: S$=" Romeinse" 

GOTO 620 

‘conversie Romeins/arabisch 
L=LEN(GS) : T=L+i: E=0 

FOR N=i TO L 

C$&=MIDS(G$,T-N, 1) 

C$="I" THEN E(N)=1 

C$="U" THEN E(N)=5 

C$="X" THEN E(N)=10 

C$&="L" THEN E(N)=50 

C$="C" THEN E(N)=100 

C&="D" THEN E(N)=500 

IF C&="M" THEN E(N)=1000 
E(N)<E(N-1) THEN E(N)=-E(N) 
E=ZE+E(N) : NEXT N: ES=STR$(E) 

S$=" Arabische" 

‘het printen van het resultaat 
PRINT: PRINT "Het getal "G$" wordt" 
PRINT "in "S$; 
PRINT * tekens: ": 
PRINT: PRINT: PRINT 
PRINT"Gebruik voor een volgende" 
PRINT"conversie toets #1." 
‘schakel f1 toets in 

KEY (1) ON 

‘wacht op interrupt 

GOTO 710 
KEY (1) OFF: 
CLS 
PRINTTAB(S) "conversie van eenheden” 
RETURN 


PRINT E$ 


RETURN 70 
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4. Rekenprogramma’s 


Onder dit hoofdstuk wordt een aantal program- 
ma’s gegeven waarbij de computer uitsluitend als 
rekenmachine wordt gebruikt. Soms zijn overeen- 
komstige programma’s opgenomen in de zoge- 
noemde modulen van programmeerbare reken- 
machines. 


4.1. Het berekenen van priemgetallen 


Een priemgetal is een getal dat slechts deelbaar is 
door 1 en door zichzelf. Dit programma berekent 
alle priemgetallen die zich bevinden tussen de twee 
grenzen die door uzelf kunnen worden gekozen (de 
getallen die de grenzen aangeven inbegrepen). Na 
het starten van het programma kunt u eerst de 
onderste grens invoeren en daarna de bovenste 
grens. Direct daarop worden de gevraagde priem- 
getallen op het scherm geprojecteerd. Betreffen het 
grote getallen dan kan het resultaat wel enige tijd 
op zich laten wachten. Wilt u de priemgetallen we- 
ten vanaf 17 tot en met 40 dan voert u deze getallen 
als grenzen in waardoor het volgende op uw 
scherm verschijnt: 


WAT IS DE ONDERGRENS? 17 
WAT IS DE BOVENGRENS? 40 


17 19 23 29 1 37 


10 ‘priemgetallen 

20 'voor interrupt met f1 toets 

30 ON KEY GOSUB 440 

40 'voor blauw veld en kader 

50 ‘en voor witte letters 

60 SCREEN O0; WIDTH(40): COLOR 15,4,4 
70 ‘het printen van de titel 

80 PRINT TAB(13)"Priemgetallen" 

SO PRINT: PRINT: PRINT: B=i 

100 ‘het invoeren van de grenzen 

110 INPUT"Wat is de ondergrens";OG 
120 INPUT"Wat is de bovengrens"; BG 
130 PRINT: PRINT 

140 A=zINT((OG+1)/6): IF A<1 THEN A=l 
150 IF OG{4 THEN P=0G-1 

160 IF OG>3 THEN 200 

120 ’'print P als PX5S 

180 P=P+1: GOTO 340 

190 'kies een getal P 

200 B=-B: P=6kA+B: IF B>O0 THEN A=A+1 
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210 ’P steeds groter dan de ondergrens 
220 IF P<OG THEN 200 

230 ’'P steeds kleiner dan de bovengrens 
240 Desi: C=1i: IF P>BG THEN 370 

250 'kies Q als deler van P 

260 D=-D: Q=6C+D: IF D>O THEN C=Ct1 
270 'Q hoeft niet groter dan SQR(P) 
280 IF INT(Q*2)>P THEN 340 

290 ‘bepaal of Q en deler is van P 

300 E=INT(P/G)%Q: IF E<P THEN 260 

310 ’zo ja, kies en nieuwe waarde voor P 
320 IF E=P THEN 200 

330 'print P als P een priemgetal is 
340 PRINT Pí: IF P<3 THEN 180 

350 ’voor een volgend priemgetal 

360 GOTO 200 

370 'schakel f1 toets in 

380 KEY(1) ON 

390 PRINT: PRINT: PRINT: PRINT: PRINT 
400 PRINT"gebruik voor een volgende "5 
410 PRINT"serie toets f1" 

420 'wacht op interrupt 

430 GOTO 430 

440 KEY(1) OFF: RETURN 60 


4.2. Het berekenen van het kleinste gemene 
veelvoud en de grootste gemene deler 


Met dit programma kunt u de grootste gemene 
deler (ggd) en het kleinste gemene veelvoud (kgv) 
berekenen van een willekeurig aantal getallen, mits 
dit aantal maar kleiner is dan tien. Na het invoeren 
en het starten van het programma moet u eerst het 
aantal van de getallen invoeren en daarna de getal- 
len zelf. Deze mogen in een willekeurige volgorde 
worden ingevoerd, dus niet noodzakelijk in de 
volgorde van grootte. Als u de ggd en het kgv van 
de getallen 4284, 20196 en 302328 wilt weten dan 
voert u eerst het cijfer 3 in en daarna de getallen. 
Het schermbeeld is dan als volgt: 


HOEVEEL GETALLEN (MAX. 10)? 3 


GETAL 1? 4284 
GETAL 2? 302328 
GETAL 3? 20196 


HET KLEINSTE GEMENE VEELVOUD 
IS 69837768 


Zie dat de volgorde van het invoeren van de getal- 


DE GROOTSTE GEMENE DELER IS 
612 


GEBRUIK VOOR DE VOLGENDE 
SERIE GETALLEN DE F1-TOETS 


len hier willekeurig is geweest! 


gad en kqv 
voor interrupt met fl toets 


30 ON KEY GOSUB 850 


60 SCREEN O0: 
‘het printen van de titel 


‘voor blauw veld en kader 


en voor witte letters 
WIDTH(40) : COLOR 15,4,4 


80 PRINT TAB(15) "ggd en kqv” 


90 PRINT: PRINT: 


100 
110 
120 
130 
140 
150 
160 


PRINT 
‘invoer aantal getallen 
PRINT "Hoeveel getallen 
'Q is een priemdeler 
INPUT I: PRINT: Q=2 
‘niet meer dan 10 getallen 

IF 1210 THEN 110 

‘invoer van de getallen 

FOR N=i TO I: PRINT"Getal "iN; 

INPUT DiN): NEXT N:KV=1;GD=ifA=1:B=i 
‘getallen in volgorde van grootte 
FOR T=1i TO I-1: FOR N=i TO I-T 

IF DEN) >D(N+1) THEN SWAP D(N),D(N+1) 
NEXT Ni NEXT T 

‘bepaal Q*T voor elk getal 

FOR N=i TO ITI: GOSUB 660 

‘bepaal QG*T met nieuwe QG 

‘en bewaar de laatste waarde van Q 
IF QA>O THEN GB=QA: QA=0: GOTO 240 
NEXT N 

‘per priemdeler wordt de macht 

‘van Q bepaald voor ggd en kgv 
K=T(1): G=K? FOR N=2 TO I 

IF T(N)<G THEN G=T(N) 

IF T(N))K THEN K=T(N) 

NEXT N 

‘per priemdeler wordt 

'ggd en kqv berekend 

KV=KU#INT (@*K) : GD=GD#INT (QG) 

‘als elk getal D(N) is opgedeeld 
‘door de priemdelers dan 

'is hun rest 1 

DK=1: FOR N=i TO I 

DK=DK&D(N) : NEXT N 

‘als DK=l dan is resultaat bekend 

IF ABS(DK-1)<.,1 THEN 530 
‘eventueel opnieuw met de 
‘vorige priemdeler 

IF QB>O THEN Q=GB; QB=O; 
IF Q=2 THEN Q=3: GOTO 240 
‘bepaal een nieuwe priemdeler 
B=-B: Q=ó6kA+B: IF B>O THEN A=zAt1 
GOTO 240 

‘het printen van het resultaat 


(max. 10)"; 


GOTO 240 


530 
540 
550 
560 
570 
580 
590 
600 
&10 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


4.3. 


Het 


PRINT: PRINT: PRINT 

PRINT"Het kleinste gemene "5 
PRINT"veelvoud is": PRINT KV 
PRINT: PRINT"De grootste gemene"; 
PRINT" deler is": PRINT GD 

PRINT: PRINT: PRINT 

PRINT"Gebruik voor een volgende "; 
PRINT"serie toets #1" 

‘schakel toets f1 in 

KEY (1) ON 
‘wacht op 
GOTO 640 
‘subr. bepaalt Q*T 

T=-1: D=D(N) 

‘getal is reeds opgedeeld 

IF D(N)=i THEN T(N)=0: RETURN 
‘voor de laatste priemdeler 
IF (INT(@*2))D) AND (@B=0) 
‘voor het aantal delingen 
T=T+1: D=INT(D) 

'getal is opgedeeld 

IF D=i THEN DT=i: GOTO 800 
‘opnieuw als de deling opgaat 

DT=D/Q 

DE=INT (DT) 

IF ABS(DE#Q-D)<,1 THEN D=DT:GOTO 720 


interrupt 


THEN 830 


'de laatste deling is uitgevoerd 
TIN)=T: DIN =D: RETURN 

‘de priemdeler wordt gelijk DiN) 
‘QA wordt als de vorige priemdeler 
QA=Q: QG=D: RETURN 

‘RUN voor resetten v.d. variabelen 
KEY (1) OFF: RUN 

Bewerkingen met breuken 


nu volgende programma is voor het rekenen 


met breuken. De volgende bewerkingen zijn hierbij 
mogelijk: optellen, aftrekken, vermemigvuldigen 
en delen: de vier basisfuncties van elke calculator. 
Na het starten van het programma worden eerst de 
teller en de noemer van de eerste breuk ingevoerd, 
dan het bewerkingsteken en daarna de teller en de 
noemer van de tweede breuk: 


BEWERKINGEN MET BREUKEN 


TELLER? 3 
NOEMER? 4 
BEWERKING? + 
TELLER? 7 
NOEMER? 8 


Nu wordt de berekening 3/4 + 7/8 uitgevoerd: 


BEWERKINGEN MET BREUKEN 


(3/4) +(7/8) = 
13/8 


BEWERKING? = 


U kunt meerdere berekeningen na elkaar maken, 
vandaar dat u nu opnieuw een bewerkingsteken 
kunt invoeren (ook weer +, —, * of /) met daarna 
de teller en de noemer van de volgende breuk. Met 
deze breuk en met het resultaat van de vorige bere- 
kening wordt dan de nieuwe bewerking uitgevoerd. 
In dit geval is het = teken ingevoerd. De computer 
geeft daarna het definitieve resultaat: 


BEWERKINGEN MET BREUKEN 


1 +5/8 


GEBRUIK VOOR EEN VOLGENDE 
BEWERKING TOETS F1 


Met dit programma is dus een samengestelde be- 
rekening mogelijk met een aantal breuken (het 
aantal is onbeperkt) en na elke berekening kan een 
willekeurige bewerking worden gekozen. Nadat het 
= teken is gebruikt, wordt het definitieve resultaat 
bekend gemaakt. Is een volgende serie berekenin- 
gen nodig, dan moet de fl-toets worden gebruikt. 


19 ‘bewerkingen met breuken 

20 'voor interrupt met de f1 toets 

30 ON KEY GOSUB 1020 

40 ’'voor blauw veld en kader 

50 ‘en witte letters. 

60 SCREEN O: WIDTH(40); COLOR 15,4,4 
70 PRINT"Wilt u een aanwijzing"; 

80 PRINT" ja of nee";: INPUT A& 

SO IF A$="ja" THEN 790 

100 IF A$<>"nee" THEN 60 

110 ’voor het printen van de titel 

120 GOSUB 610 

130 S$="+-#/" 

140 ‘het invoeren van de eerste breuk 
150 INPUT"teller";RT: INPUT "noemer"; RN 
160 ’'variabele I geeft de bewerking aan 
170 INPUT"bewerking";B®: FOR I=i TO 4 
180 IF B&=MID$(S$,I,1) THEN 230 

190 NEXT: IFBS="=" THEN 460 

200 ‘opnieuw bij verkeerde invoer 


GOTO 170 

‘het invoeren van de volgende breuk 
INPUT"teller";T: INPUT"noemer"jN 
‘selectie naar bewerking 

ON I GOTO 270,380,420,440 

‘voor het bepalen van het kqv 
A=RN: B=N: GOSUB 650 

‘voer de bewerking + uit, 
TT=KU/RNERT+KU/NKT: TN=KV 

‘voor het berekenen van het ggd 
A=TT: B=TN: GOSUB 650 
‘vereenvoudig de breuk 

TT=TT/GD: TN=TN/GD 

‘voor het printen van het resultaat 
‘terug voor de volgende bewerking 
GOSUB 740: GOTO 170 

‘bepaal het kqv 

A=RN: B=N: GOSUB 650 

‘voer de bewerking - uit 
TT=KV/RNERT-KU/NET: TN=KUV: GOTO 310 
'voer de bewerking # uit 

TT=RT&T: TN=RNEN: GOTO 310 
‘inverse voor de bewerking / 
SWAP T‚N: GOTO 420 

‘bereken het eindresultaat 

H=O 

IF TT{TN THEN 500 

H=Ht1l: TT=TT-TN: GOTO 470 

‘het printen van het resultaat 
GOSUB 610: IF H=0O THEN 530 

PRINT Hs: IF TT=zO THEN 540 
PRINT"+"; 

PRINT TT"/"TN 

PRINT: PRINT: PRINT 
PRINT"Gebruik voor een volgende "j 
PRINT"bewerking": PRINT"toets #1." 
‘schakel toets fl in 

KEY (1) ON 

‘wacht op interrupt 

GOTO 600 

CLS: PRINT TAB(5); 

PRINT "Bewerkingen met breuken.” 
PRINT: PRINT: RETURN 

‘subroutine berekent gad en kqv 
A=ABS(A); B=ABS(B) 

IF A>B THEN 680 

SWAP A‚B 

PR=A#B 

Q=A-INT(A/B)#B: IF Q=0 THEN 710 
A=B: B=@Q: GOTO 690 

GD=B; KV=PR/B: RETURN 

'subroutie print het resultaat 
‘van de bewerking 

GOSUB 610: PRINT" (*RT"/"RN3 

IF B&="/" THEN SWAP T‚N 

PRINT) CBR (ERAAN) 2e" 

PRINT: PRINT TT"/"TN 

PRINT: RT=TT: RN=TN: RETURN 

CLS: COLOR 10 

PRINT"Voer eerst de teller van "sj 
PRINT"de eerste breukin." 
PRINT"Toets daarna de noemer "j 
PRINT"van de eerste" 

PRINT"breuk in." 

PRINT" Type nu het berwerkings"; 
PRINT"teken +‚-‚% of / in. "5 
PRINT"Voer nu de tweede breuk "5 
PRINT" in. Nu wordt"; 

PRINT"het antwoord van de "5 


900 PRINT"eerste bewerking" 

910 PRINT"getoond en kan de volgende "5 
920 PRINT"breuk worden” 

930 PRINT"ingevoerd. Een = "5 

940 PRINT"teken geeft"; 

950 PRINT" het defini-tieve antwoord." 
960 PRINT: PRINT: PRINT"Gebruik een "5 
970 PRINT"willekeurige toets om * 

980 PRINT"terug te keren naar het"; 
990 PRINT" programma," 

1000 AS=INKEYS: IF A$="" THEN 1000 
1010 CLS: COLOR 15: GOTO 110 

1020 KEY(1) OFF: GOTO 110 


4.4. Berekening van priemdelers 


Priemdelers zijn de delers van een getal die tevens 
priemgetallen zijn. Zo zijn van het getal 30 de ge- 
tallen 1, 2, 3 en $ de priemdelers. Het getal 10 is 
wel een deler van 30 maar is geen priemdeler. 
Het volgende programma geeft van een bepaald in- 
gevoerd getal de priemdelers. Elk geheel getal kan 
worden ingevoerd. Alleen kan bij een groot getal 
de uitslag wel even op zich laten wachten. Voert u 
het getal 69837768 in dan geeft het scherm het vol- 
gende weer: 


PRIEMDELERS 


WELK GETAL? 69837768 


DE PRIEMDELERS VAN 69837768 
ZIJN: 


1 2 3 7 11 13 17 19 


GEBRUIK VOOR HET VOLGENDE 
GETAL DE F1-TOETS 


Steeds zal na het indrukken van de fl-toets een 
nieuw getal kunnen worden ingevoerd, waarvan 
dan weer de priemdelers worden gegeven. 


10 ‘berekening van priemdelers 
20 'voor interrupt met de f1 toets 
30 ON KEY GOSUB 460 


40 ’voor blauw veld en kader 

50 'en witte letters, 

&0 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'het printen van de titel 

80 CLS: PRINT TAB(6); 

90 PRINT"Berekening priemdelers.”" 
100 PRINT: PRINT: PRINT 

110 ’invoer van het getal 

120 INPUT"Welk getal";G: Q=2: A=1: Bei 
130 PRINT: PRINT: PRINT 

140 PRINT"De priemdelers van"G"zijn:" 
150 PRINT: PRINT"1 "5 

160 'ga na of G een priemgetal is 
170 T=0: IF INT(Q@*2))>G THEN 350 
180 ’'bepaal of Q een deler is 

190 D=INT(G/G): E=INT(D#@) 

200 IF E=G THEN 280 

210 'Q was geen deler, nieuwe GQ 
220 IF Q<3 THEN Q=3: GOTO 170 

230 B=-B: Q=64A+B 

240 IF B>O THEN AzA+t1 

250 ’voor de volgende deling 

260 GOTO 170 

270 ‘laatste priemdeler gevonden 
280 G=D: IF G=1 THEN 360 

290 'Q is een deler, probeer of @ 
300 ’nogmaals op G te delen is 
310 IF T>0 THEN 190 

320 'voor de volgende deler 

330 PRINT Qj: T=i: GOTO 190 

340 'G is zelf een priemgetal 

350 PRINT G 

360 PRINT: PRINT: PRINT 

370 PRINT"Gebruik voor het "4 

380 PRINT"volgende getal de” 

390 PRINT"f1 toets." 

400 ’schakel 41 toets in 

410 KEY(1) ON 

420 'wacht op interrupt 

430 GOTO 430 

440 'RUN voor het resetten van de 
450 'variabelen 

460 KEY(1) OFF: RUN 


4.5. Het omzetten van tiendelige naar gewone 
breuken v.v. 


Bij elk programma voor het omzetten van getallen 
en dergelijke is steeds omzetting in twee richtingen 
mogelijk geweest. Bij dit programma is dat ook zo, 
hoewel de omzetting van gewone breuken naar 
tiendelige breuken erg eenvoudig is en feitelijk 
geen programma behoeft. Na het starten van het 
programma kunt u met T/G kiezen voor omzetting 
van tiendelige naar gewone breuken en met G/T 
kiezen voor de omzetting van gewone naar tiendeli- 
ge breuken. Hebt u voor G/T gekozen dan kunt u 
de teller en de noemer van de breuk invoeren waar- 
na het resultaat op het scherm verschijnt. Hebt u 
voor T/G gekozen dan kunt u het getal van de tien- 
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delige breuk invoeren. Is dat getal .125 dan is het 
resultaat: 


HET OMZETTEN VAN BREUKEN 


125 = 1/8 


GEBRUIK VOOR DE VOLGENDE 
OMZETTING DE F1-TOETS 


Gebruikt u hierna de fl-toets dan kunt u in dit ge- 
val kiezen welke omzetting hierna zal plaatsvinden. 


10 ‘omzetten van breuken 

20 ‘voor interrupt met de f1 toets 
30 ON KEY GOSUB 530 

40 'voor blauw veld en kader 

50 'en witte letters 

60 SCREEN Ot WIDTH(40): COLOR 15,4,4 
70 'voor het printen van de titel 

80 GOSUB 490 

90 PRINT"Wilt u van tiendelige naar"; 
100 PRINT" gewone breu- ken (T/G) of"; 
110 PRINT" van gewone naar tiendelige" 
120 PRINT"breuken (G/T) "5 

130 INPUT K$: IF K&="T/G" THEN 240 
140 ’voor verkeerde invoer 

150 IF K$4,"G/T" THEN 60 

160 'voor het printen van de titel 
170 GOSUR 490 

180 ‘invoer van de gewone breuk 

190 INPUT"teller";T: INPUT "noemer"; 
200 ‘bereken de tiendelige breuk 

210 G=T/N: GOSUB 490 

220 'print het resultaat 

230 PRINT T"/!"N"="G: GOTO 400 

240 'invoer v.d, tiendelige breuk 
250 INPUT"getal";G: I=0: T=G 

260 'voor het bepalen v.d. teller 
270 ‘en de noemer 

280 I=I+i: T=iO4T: N=INT(40*I): D=INT(T) 
290 IF ABS(D-N4G)<.1 THEN 320 

300 GOTO 280 

310 'voor het bepalen van de ggd 

320 A=N: B=INT(T): PR=A#B 

330 @=zA-INT(A/B)#B: IF Q=0 THEN 360 
340 A=B: B=Q: GOTO 330 

350 'het vereenvoudigen van de breuk 
360 T=T/B: NeN/B 

370 GOSUB 490 

380 'het printen van het resultaat 
390 PRINT G"="T"/"N 

400 PRINT: PRINT: PRINT 

410 PRINT"gebruik voor de "5 

420 PRINT"volgende omzetting" 

430 PRINT"de f1 toets." 

440 'schakel 41 toets in 


450 KEY(1) ON 

460 'wacht op interrupt 

470 GOTO 470 

480 'subr, print de titel 

490 CLS: PRINT TAB(9); 

500 PRINT"Omzetten van breuken" 
510 PRINT:PRINT:PRINT: RETURN 
520 ’start het programma opnieuw 
530 KEY(1) OFF: RETURN 60 


4.6. Functies (het berekenen van grafieken) 


Het zal wel bekend zijn dat door twee punten pre- 
cies een rechte lijn gaat. Ook bepaalde kromme lij- 
nen liggen vast als twee punten daarvan gegeven 
zijn. Het volgende programma bepaalt de vergelij- 
kingen van drie soorten functies als daarvan twee 
punten bekend zijn. Deze functies zijn: 
Y=akX+b,  Y=akX2+b*X+c (met voor- 
waarden) en Y =a*e (b*X). Hierin is e de grond- 
tal van het natuurlijke logaritme stelsel. Het is niet 
alleen de bedoeling dat de vergelijkingen worden 
bepaald aan de hand van twee punten, maar ook 
dat een vergelijking wordt berekend met behulp 
van een aantal punten die door metingen zijn ver- 
kregen. De gemeten punten zullen dan niet steeds 
met de lijn samenvallen omdat er in het algemeen 
wel meetfouten optreden. Van deze punten wordt 
daarom een gemiddelde bepaald en door middel 
van dat gemiddelde wordt de vergelijking be- 
rekend. 

a. Na het starten van het programma kunt u kiezen 
uit de drie mogelijkheden met de toetsen 1, 2 of 3. 
Hier gaat het om de rechte lijn: Y =a*X +b. Daar- 
voor dient u dus toets 1 te gebruiken. Hierna komt 
de vraag hoeveel punten u wilt invoeren. Als het 
niet gaat om een karakteristiek die moet worden 
geconstrueerd aan de hand van een aantal metin- 
gen dan is het invoeren van twee punten genoeg. 
Het getal dat u moet invoeren is dus 2. Daarna 
kunt u de respectievelijke X en Y waarden van de 
punten invoeren. Na het invoeren van de laatste 
waarden wordt de vergelijking van de lijn getoond 
die door die punten gaat. Wilt u de punten P1(1,5) 
en P2(2,7) invoeren dan is het verloop als volgt: 
Na het starten van het programma wordt u ge- 
vraagd of u een aanwijzing wilt. Als u dit allemaal 
gelezen heeft is dat niet meer nodig en dus ant- 
woordt u met nee. Nu toont het scherm: 


KIES VOOR Y=A*X+B TOETS 1, 
VOOR Y=A*X 2+B*X+C TOETS 2, 
EN VOOR Y=AxE X TOETS 3 


U drukt nu toets 1 in en het vervolg is: 


HOEVEEL PUNTEN? 


Na het invoeren van het getal 2 en van de X- en Y- 
waarden van die twee punten vertoont het scherm: 


FUNCTIE: 


Y=2%*X+3 


GEBRUIK VOOR BEREKENING VAN 
EEN PUNT OP DE LIJN BĲ GE- 
GEVEN X-WAARDE TOETS 1 OF BĲ 
GEGEVEN Y-WAARDE TOETS 2. 


Het programma maakt het mogelijk de Y-waarde 
van een punt op de karakteristiek te berekenen als 
de X-waarde van dat punt wordt ingevoerd. 
Hiertoe moet u de toets 1 indrukken waarna de be- 
treffende X-waarde kan worden ingevoerd. Voert 
u X=$ in dan is het antwoord Y=13. 

Na het indrukken van de toets 2 kunt u de Y- 
waarde van een punt op de karakteristiek invoeren 
waarna de X-waarde van dat punt wordt getoond. 
Voert u Y=1S$ in dan is het antwoord X=6. 
Wilt u een aantal opgemeten punten invoeren dan 


dient u na de vraag om het aantal punten het getal 
van dit aantal in te toetsen. Hierna kunt u de be- 
treffende X- en Y-waarden invoeren waarna de 
vergelijking van een lijn wordt getoond die onge- 
veer het gemiddelde van de ingevoerde punten 
volgt. Er wordt steeds de vergelijking van een rech- 
te lijn verkregen! Afbeelding 1 geeft de karakte- 
ristiek van een lijn door de punten Pl en P2. 
(Y=X +2). 


25 


b. dit programma maakt het ook mogelijk om be- 
rekeningen uit te voeren aan bepaalde kwadrati- 
sche functies. De vergelijking van zo’n functie is 
Y=a*X2+b*X+e. Omdat hier drie constanten 
zijn: a, ben c moeten in principe drie punten wor- 
den ingevoerd. Er zijn daarom bepaalde beperkin- 
gen. In afbeelding 2 is de karakteristiek voor 
Y=(X°2)/2 weergegeven. Door de Y-waarden niet 
lineair af te beelden maar hiervoor een kwadrati- 
sche schaal te nemen ontstaat voor dezelfde karak- 
teristiek een rechte lijn. Dit is te zien in afbeel- 
ding 3. Dit programma brengt de functie dan ook 
terug tot een rechte lijn en veroorzaakt daarmee 
bepaalde voorwaarden voor de functie zodat 
slechts twee punten behoeven te worden ingevoerd. 
De berekende functie voldoet daarom steeds aan 
de voorwaarde 
Y=(akX+b)2=a 2kX 24 2kakbkX+b2. 
Hiermee liggen de drie constanten van de vier- 
kantsvergelijking vast. Verder blijven alle moge- 
lijkheden die we voor de rechte lijn kennen ook 
voor deze kwadratische functie gelden. Voor de se- 
lectie moet nu echter toets 2 worden gebruikt. 
Voert u daarna X=2, Y=l en X=3, Y=9 in dan 
wordt de functie Y =4*X"2— 12%*X +9 berekend. 
Deze voldoet aan de voorwaarde Y =(2*X — 3) 2. 
Nu een voorbeeld van het invoeren van een aantal 
gemeten punten. Stel dat een voorwerp zonder be- 
ginsnelheid een constante versnelling ondervindt. 
Op verschillende tijdstippen meten we de afgelegde 
afstand zo nauwkeurig mogelijk. De volgende 
tabel geeft de gemeten waarden: 


tijd 

in sec. (t) 1 2 3 4 hj 6 
afstand 
mms (s) 2:01 7,99 179 321 SOZ 718 
De afgelegde afstand is uit te drukken in 
s=1/2%ka*t 2. Stellen we s=Y en t=X dan wordt 
de functie: Y=1/2*a*X2 waarvan de karakte- 
ristiek in afbeelding 2 is getekend. Hiervoor voeren 


we de volgende punten in: 


X 2 3 n 5 6 
4 20 JO 179 21 502 718 


Het resultaat van de berekening is: 


Y =1.999329364X"2 + 2.878750E — 03*X 
+ 1.03624817E — 06 


Deze vergelijking is een benadering waarbij we de 
tweede en de derde term moeten laten vervallen 
(hebben maar kleine waarde). Uit de eerste term 
stellen we vast dat 1/2*a gelijk moet zijn aan 
1.99932936 zodat de versnelling a gelijk is aan 
3.99865872 m/(s 2). 

Ook nu kan door het invoeren van een X- of een 
Y-waarde de bijbehorende respectievelijke Y- of 
X-waarde worden gevonden. 

c. Ook voor de functie Y =a*e (b*X) is de hande- 
ling gelijk aan die van de voorgaande functies. De 
werkwijze kan worden gekozen door het indruk- 
ken van de toets 3. Nu is het invoeren van twee 
punten weer genoeg voor het berekenen van de ver- 
gelijking. Voert u de punten X=l, Y=100 en 
X=4, Y=l in dan is het resultaat: 


Y =464.158883%e (— 1.53505673*X) 


Bij dit voorbeeld is a dus gelijk aan 464.158883 en 
b gelijk aan —1.53505673. Ook nu kunnen een 
aantal gemeten punten worden ingevoerd. 


10 'berekening van functies 

20 'voor interrupt met de f1 toets 
30 ON KEY GOSUB 1150 

40 'voor blauw veld en kader 

50 'en witte letters 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 PRINT"Wilt u een aanwijzing, "5 
80 INPUT"ja of nee";G$ 

90 IF G$="ja" THEN 1160 

100 IF G$&<>"nee" THEN 60 

110 ’voor het printen van de titel 
120 GOSUB 1110 

130 'keuze van de functie 

140 PRINT"Kies voor Y=akXtb toets 1," 
150 PRINT: PRINT"voor Y=akX“2+bx+c"; 
160 PRINT” toets 2,": PRINT 

170 PRINT"en voor Yze“X toets 3." 
180 PRINT: INPUT Z: IF Z>3 THEN 120 
190 'invoer van het aantal punten 
200 INPUT"Hoeveel punten”;I: PRINT 
210 DIM XI), YI), ACI) 

220 ‘invoer van de punten 

230 FOR N=t TO I 

240 XXS=STRE(N) : X$="X"+XXE 

250 Y$="Y"+XXE 

260 PRINT X$5: INPUT X(N) 

270 PRINT Y&;5: INPUT Y(N): NEXT N 
280 'selectie naar functie 

290 ON Z GOTO 330,540, 720 

300 'voor het berekenen van de 

310 'gemiddelde waarde van a en b 
320 VOOR DE FUNCTIE Y=A#X+B 

330 XS=0: YS=0: XY=0: X2=0 

340 FOR N=i TO I 

350 XS=XS+X(N)? YS=YS+Y(N) 

360 XY=XY+X NY (N) 


X2=X24X(N) "2: NEXT Nr: 
A= (IAXY-XS#YS) /Q 
B=(YSX2-XSHXY) /Q 
‘voor selectie naar functie 

ON 2 GOTO 430,560, 740 

‘voor het printen van het resultaat 
GOSUB 880 

‘selectie voor invoeren X- of Y-get. 
GS=INKEY$: IF GS=CHR$(5O) THEN 510 
IF GS<>CHR$(49) THEN 450 

GOSUB 1060: PRINT: INPUT"X";X 

‘print Y als functie van X 

Y=A4X+B: 5 PRINT "Y="Y 

GOSUB 890: GOTO 450 

GOSUB 1060: PRINT: INPUT"Y";Y 

‘print X als functie van Y 
X=(Y-B)/A: PRINT"X="X; GOTO 500 

FOR Nei TO ITI: Y(N) =SQR(Y(N) 

NEXT: GOTO 330 
C=A"2;: D=24A4B; 
GOSUB 960: GOSUB 890 
GS=INKEY$; IF GS$&=CHR$(SO) 
IF GS<>CHR$(49) THEN 580 
GOSUB 960: PRINT: INPUT "X"#X 
V=CHX"24DAX4ES PRINT"Y="Y 

GOSUB 890: GOTO 580 

GOSUB 9640: PRINT: INPUT"Y"$Y 
P=D"2-4CH(E-Y): IF P{O THEN 680 
P=SQR(P) : Xi=(-D+P)/2/C 
X2=(-D-P)/2/C: PRINT"Xi="X1 

PRINT" X2="X2;: GOSUB 890: GOTO 580 
Q=(4KCHE-D"2)/4/C 

PRINT"Y moet groter of gelijk"; 
PRINT" zijn aan"Q: FOR N=0 TQ 000 
NEXT N: GOTO 630 

FOR N=i TO I: IF Y{N)=<0 THEN 840 
YIN)=LOG(Y(N)): NEXT: GOTO 330 

D=A: C=EXP(B): GOSUB 1030: GOSUB 890 
GE=INKEY$: IF G&=CHR$E(SO) THEN 800 
IF GEC_CHRE(49) THEN 750 

GOSUB 1030: PRINT: INPUT"X"jX 
V=CHEXP(D#X) : PRINT" Y="jY 

GOSUB 890: GOTO 750 

GOSUB 1030: PRINT: INPUT"Y"jY 

IF Y=<0O THEN GOSUB 850: GOTO 800 
X=(LOG(Y)-B)/D: PRINT "Xe "X 

GOSUB 890; GOTO 750 

GOSUB 850; GOTO 230 

PRINT"Y steeds groter dan O0," 

FOR N=0 TO 3000: NEXT N? RETURN 


Q=IX2-XS"2 


E=B"2 


THEN 630 


'subr. geeft aanwijzing toetsen 
GOSUB 1060 

PRINT: PRINT: PRINT 

PRINT"Gebruik voor berekening van"; 


PRINT" een punt op de lijn bij "5 
PRINT"gegeven X-waarde toets 1" 
PRINT"of bij gegeven Y-waarde "; 
PRINT"toets 2,": RETURN 


950 ’'subr. print resultaat parabool 

960 GOSUB 1110: PRINT*Functie:" 

970 Di=D: E1=E 

980 D$="+": IF D<O THEN D$="-": Di=-D 
990 E$="+": IF ECO THEN D$="-"; Eliz-E 
1000 PRINT"Y ="C"# X*2 "D$SD1"% X "ESEL 
1010 RETURN 

1020 ’subr. print resultaat exp. functie 
1030 GOSUB 1110: PRINT"Functie:" 

1040 PRINT"Y ="C"4% e“("D"4% X )": RETURN 


’subr. print het resultaat rechte 


GOSUB 1110: 
Bi=B: B$="+" 
IF BXO THEN B$="-"; 
PRINT"Y ="A"% X "BSBI: RETURN 

‘subr. print de titel 

CLS: PRINT TAB(10)5 

PRINT"Berekening functie." 
PRINT:PRINT:PRINT: RETURN 

'start het programma opnieuw 

KEY(1) OFF: RETURN 60 

CLS: PRINT"Als u een aantal punten *j 
PRINT"voor een”: PRINT"karakteri"; 
PRINT"stiek hebt opgemeten dient u” 
PRINT"eerst het getal van het *; 
PRINT"aantal punten inte voeren *; 
PRINT"en daarna de X en de Y *; 
PRINT"waardenvan elk punt *; 
PRINT"afzonderlijk.* 

PRINT: PRINT"Na het berekenen *; 
PRINT"van de vergelijking * 
PRINT"door de computer kunt u *; 
PRINT" Y=f(X) of Xs=f (Y)laten *; 
PRINT"bepalen."”: PRINT 

PRINT"Gebruik voor het vervolgen"; 
PRINT" van het pro- gramma een *; 
PRINT"willekeurige toets." 

ASzINKEY$: IF A$=""THEN 1320 

CLS: GOTO 120 


PRINT"Functie:": PRINT 


Bi=-B 


4.7, Het berekenen van pythagorische driehoeken 


Het volgende programma berekent voor u de py- 
thagorische driehoeken, dat wil zeggen: driehoe- 
ken met een rechte hoek waarvan de lengte van alle 
drie de zijden in een geheel getal zijn uit te druk- 


ken. 


De bekendste hiervan is wel de 3 4 S driehoek. Er 
zijn er echter nog veel meer. Het aantal driehoeken 
dat wordt berekend, is beperkt. De grenzen kunt u 
zelf bepalen door de kleinste lengte (ondergrens) en 
de grootste lengte (bovengrens) van de korte recht- 
hoekszijde in te voeren. Meervouden zullen niet 
voorkomen. Een driehoek waarvan de zijden zijn 
uitgedrukt in 12 16 en 20 als meervoud van de 
3 4 5 driehoek zal dus niet worden gegeven. Heeft 
u als ondergrens 3 en als bovengrens 15 ingevoerd 
dan is het resultaat: 


4 5 

12 13 

24 25 

15 17 

40 41 

11 60 61 
12 35 37 
13 84 85 
15 112 113 
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10 ’pythagorische driehoeken 

20 'voor blauw veld en kader 

30 'en witte tekens 

40 SCREEN O: WIDTH(40):; COLOR 15,4,4 
50 PRINT"Wilt u een aanwijzing, "5 

60 INPUT"ja of nee";G$ 

70 IF G$="ja" THEN 280 

80 IF G&<>"nee" THEN 40 

90 CLS: PRINT TAB(7)"Pythagorische "; 
100 PRINT"driehoeken.": PRINT: PRINT 
110 ’'invoer van de grenzen 

120 INPUT"Ondergrens";A 

130 INPUT"Bovengrens";B: PRINT 

140 FOR I=A TO B 

150 'voor oneven getallen 

160 IF (I AND 1)=i THEN 250 

170 IF I=4 THEN 270 

180 ’voor het voorkomen van 

190 'veelvouden van pyth. driehoeken 
200 IF ((I/2) AND i)=i THEN 270 

210 ’'voor het berekenen van de tweede 
220 'rechthoekszijde en de 

230 ’schuine zijde 

240 J=(I2-4)/4: Kh=(I"2+4)/4: GOTO 260 
250 Jh=(I“2-1)/2: Kh=(I" 241) /2 

260 PRINT Is J%$ K% 

270 NEXT I: END 

280 CLS 

290 PRINT"Voor het berekenen van de"; 
300 PRINT" driehoeken wordt *$ 

310 PRINT"uitgegaan van de korte "5 
320 PRINT"rechthoeks-zijde. "5 

330 PRINT"Hiervan moet de laagst "j 
340 PRINT"gewenste en de hoogst"; 
350 PRINT" gewenste waarde worden " 
360 PRINT" ingevoerd. ": PRINT 

370 PRINT"Gebruik voor het vervolgen”; 
380 PRINT” van het pro- gramma "5 

390 PRINT"een willekeurige toets," 
400 G&=INKEYS: IF G&="" THEN 400 

410 GATA SO « 


4.8. Het oplossen van een vierkantsvergelijking 


Dit programma berekent voor u de wortels van een 
vierkantsvergelijking. De volledige vierkantsverge- 
lijking is a*X 2+b*X+c=0. Andere vormen 
zijn: a*X2+c=0 en a*X2+b*X=0. Steeds 
wordt echter gevraagd om drie gegevens in te voe- 
ren: a, ben c. Voor de vergelijking a*X 2 +c=0 
moeten we daarom voor b 0 invoeren en voor de 
vergelijking a*X 2 +b*X=0 moeten we voor c 0 
invoeren. Voor de vergelijking 2%X°2- 15% 
X + 18 =0 moeten de volgende waarden worden in- 
getoetst: a=2, b= —1$ en c=18. Het invoeren 
hiervan kan direct na het starten van het program- 
ma gebeuren. Het resultaat volgt direct daarna. 


DE VERGELIJKING IS: 


AxX 24+B*X+C=0 


GETAL VOOR A? 2 
GETAL VOOR B? —15 
GETAL VOOR C? 18 
DE WORTELS ZIJN: 


X1=6 X2=1.5 


GEBRUIK VOOR EEN VOLGENDE 
OPGAVE DE F1-TOETS 


Het kan zijn dat bepaalde vierkantsvergelijkingen 
uitkomen op een stel complexe wortels. In die ge- 
vallen wordt de uitkomst ook in de complexe getal- 
len gegeven. Probeer maar eens: X°2-S*X+7=0 
(a=1). 

Na het oplossen van een vergelijking kunnen de ge- 
gevens voor een volgende vergelijking worden in- 
gevoerd als eerst toets fl is ingedrukt. 


10 ’vierkantsvergelijkingen 

20 ’voor interrupt met de f1 toets 

30 ON KEY GOSUB 420 

40 ’voor blauw veld en kader 

50 ‘en witte letters 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'het printen van de titel 

80 PRINT TAB(9)"Vierkantsvergelijking." 
90 PRINT: PRINT: PRINT 

100 PRINT"De vergelijking is" 

110 PRINT: PRINT"akX“2+b%X+ce0": PRINT 
120 ’invoeren van de gegevens 

130 INPUT"Getal voor a";A: PRINT 

140 INPUT"Getal voor b";B: PRINT 

150 INPUT"Getal voor c";C: PRINT 

160 ‘berekening van de discriminant D 
170 D=B*2-4#AC 

180 ‘als D=neq dan complexe wortels 
190 IF D<O THEN 340 

200 ‘berekening van de wortels 

210 D=SAQR(D): Xi=(-B+D)/2/A: X2=(-B-D)/2/A 
220 'het printen van de wortels 

230 PRINT: PRINT 

240 PRINT"De wortels zijn: ": PRINT 

250 PRINT"X1="X1: PRINT: PRINT"X2="X2 
260 PRINT: PRINT: PRINT"Gebruik voor "5 
270 PRINT"een volgende opgave" 

280 PRINT"toets #1" 

290 'schakel f1 toets in 

300 KEY(1) ON 

310 ’wacht op interrupt 

320 GOTO 320 

330 'berekening complexe wortels 

340 P=-B/2/A: D=-D: QG=SQR(D) /2/A 


350 'print de complexe wortels 
360 PRINT: PRINT 

370 PRINT"De wortels zijn: ": 
380 PRINT"Zi="P"+ i"Q: PRINT 
390 PRINT"Z2="P"- i"Q" (complex) " 
400 GOTO 260 

410 ’start het programma opnieuw 
420 KEY(1) OFF: RUN 


PRINT 


4.9. Omzetting van het polaire naar het 
rechthoekig coördinatenstelsel 


Een berekening die nogal eens nodig is, betreft het 
omzetten van de coördinaten van een punt in het 
rechthoekig coördinatenstelsel naar het polaire 
coördinatenstelsel. Hiervoor dient het volgende 
programma, waarmee omzetting in beide richtin- 
gen mogelijk is. In het rechthoekig coördinaten- 
stelsel wordt de plaats van een punt aangegeven 
met een X-en een Y-waarde (tweedimensionaal) en 
in het polaire coördinatenstelsel met de lengte van 
de lijn R, dit is de rechte afstand van het punt tot 
aan de oorsprong van de assen en met de hoek die 
deze lijn maakt met de X-as (afbeelding 4). Na het 
starten van het programma kunt u kiezen voor de 
omzetting van rechthoekige coördinaten naar po- 
laire coördinaten (kiezen voor R/P) of voor de om- 
zetting van polaire coördinaten naar rechthoekige 
coördinaten (kiezen voor P/R). Wilt u omzetten 
van rechthoekige coördinaten naar polaire coördi- 
naten dan dient u de waarden X en Y in te voeren. 
Het programma geeft u dan R en de hoek. Heeft 
uX=10en Y=20 ingevoerd dan is het resultaat: 


CO-ORDINATENSTELSEL 


WILT U VAN RECHTHOEK CO-ORDI- 
NATEN HAAR POLAIRE CO-ORDINA- 
TEN (R/P) OF ANDERSOM 

(R/P)? R/P 


X? 10 
Y? 20 


R=22.3606798 
HOEK =1.10714872 RAD 


GEBRUIK VOOR EEN VOLGENDE 
OMZETTING DE F1-TOETS 


Afb. 4 kp 


Zoals u ziet wordt de grootte van de hoek uitge- 
drukt in radialen. Zo moet u voor de omzetting in 
tegenovergestelde richting, die van polaire naar 
rechthoekige coördinaten, de groote van de hoek 
ook uitdrukken in radialen. Heeft u voor P/R 
gekozen en wordt door R 2$ en voor de hoek 
1.04719755 rad. ingevoerd, dan is het resultaat: 


CO-ORDINATENSTELSEL 


WILT U VAN RECHTHOEK CO-ORDI- 
NATEN NAAR POLAIRE CO-ORDINA- 
TEN (R/P) OF ANDERSOM 

(P/R)? P/R 


R? 25 
HOEK? 1.04719755 


X=12.5 Y=21.6506351 


GEBRUIK VOOR EEN VOLGENDE 
OMZETTING DE F1-TOETS 


10 ’van rechthoek naar polair vv. 

20 'voor interrupt met de #41 toets 

30 ON KEY GOSUB 520 

40 'voor blauw veld en kader 

50 ‘en witte tekens 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'het printen van de titel 

80 PRINT TAB(10)*Co-ordinatenstelsel." 
90 PRINT: PRINT: PRINT 

100 'keuze van stelsel 


110 PRINT"Wilt u van rechthoeksco-or"; 
120 PRINT"dinaten naar polaire co-or"s 
130 PRINT"dinaten (R/P) of andersom"; 
140 PRINT" (P/R) "4 

150 INPUT A$: IF A$="R/P" THEN 320 

160 IF A$<)>"P/R" THEN 60 

170 ‘invoer van de gegevens 

180 PRINT: INPUT*r";R? INPUT"Hoek";H 
190 ‘conversie polair-rechthoek 

200 XaeRKCOS(H) 5 Y=RESIN(H) 

210 ’print het resultaat 

220 PRINT: PRINT"x="X: PRINT"y="5Y 
230 PRINT: PRINT: PRINT 

240 PRINT"Gebruik voor een "j 

250 PRINT"volgende omzetting" 

260 PRINT"toets #1," 

270 'schakel #1 toets in 

280 KEY(1) ON 

290 'wacht op interrupt 

300 GOTO 300 

310 'invoer gegevens 

320. PRINT: INPUT"x"$X: INPUT"y"sY 

330 ’'niet delen door O 

340 IF X=0 THEN 470 

350 ‘berekening hoek 

360 H=ATN(Y/X) 

370 ‘correctie betreffende kwadrant 
380 IF Y<O THEN H=H+4#ATN(I) 

390 IF SGN(X)=-SGN(Y) THEN H=H+4HATN(1) 
400 IF (Y=O) AND (X40) THEN H=4#ATN(1) 
410 ‘berekening straal 

420 R=SQR(X 2+4+Y“2) 

430 ‘print het resultaat 

440 PRINT: PRINT"r="R 

450 PRINT"Hoek="H"rad. ": GOTO 230 

460 ‘berekening van de hoek voor x=0 
470 IF Y>0 THEN H=2#ATN(1) 

480 IF Y<O THEN H=6#ATN(1) 

490 ‘berekening van de straal voor x=0 
500 R=Y: GOTO 440 

510 'start het programma opnieuw 

520 KEY(1) OFF: RUN 


4.10. Het omzetten van radialen naar graden 


Omdat de computer nu eenmaal de grootte van de 
hoeken uitdrukt in radialen is een programma voor 
het omzetten van graden naar radialen wel zo han- 
dig. Ook dit programma laat omzetten in twee 
richtingen toe: van radialen naar graden (kiezen 
voor R/G) en van graden naar radialen (kiezen 
voor G/R). Heeft u gekozen voor G/R en heeft u 
de hoek 60 graden ingevoerd dan is het resultaat: 


CONVERSIE GRADEN-RADIALEN 


60 GRADEN KOMT OVEREEN MET 


1.04719755 RADIALEN 


30 


10 ‘omzetten van graden naar radialen 
20 'voor interrupt met de 41 toets 
30 ON KEY GOSUB 460 

40 'voor blauw veld en kader 

50 ’en witte letters 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'voor het printen van de titel 

80 GOSUB 420 

90 PI=4KATN(I) 

100 ’selectie naar werkwijze 

110 PRINT"Wilt u van graden naar "5 
120 PRINT"radialen (G/R) ofvan *j 
130 PRINT"radialen naar graden (R/G)*; 
140 INPUT KS: IF K$="G/R" THEN 330 
150 'voor verkeerde invoer 

160 IF K$S<>"R/G" THEN 60 

170 ’invoer van gegeven 

180 PRINT: PRINT: INPUT"Rad.";R 

190 ‘berekening radialen-graden 

200 G=R/2/PI#360 

210 'het printen van het resultaat 
220 GOSUB 420: PRINT: PRINT: PRINT 
230 PRINT R"rad. komt overeen met" 
240 PRINT: PRINT G"graden" 

250 PRINT: PRINT: PRINT: PRINT 

260 PRINT "Gebruik voor een volgende "5 
270 PRINT "omzetting": PRINT"toets #1," 
280 'schakel f1 toets in 

290 KEY(L) ON 

300 "wacht op interrupt 

310 GOTO 310 

320 ‘invoer van gegeven 

330 PRINT: PRINT: INPUT"graden";G 
340 'berekening graden-radialen 

350 R=G/360O424PI 

360 ’het printen van het resultaat 
370 GOSUB 420: PRINT: PRINT: PRINT 
380 PRINT G"graden komt overeen met" 
390 PRINT: PRINT R"radialen." 

400 GOTO 250 

410 ’subr. print de titel 

420 CLS: PRINT TAB(12); 

430 PRINT"Graden-radialen" 

440 PRINT:PRINT:PRINT: RETURN 

450 ’start het programma opnieuw 

460 KEY(1) OFF: RETURN 60 


4.11. Berekening kegel en bol 


Dit programma berekent de inhoud en de opper- 
vlakte van een kegel als hiervan de straal van het 
grondvlak en de hoogte van de kegel worden inge- 
voerd. Ook kan de oppervlakte en de inhoud van 
een bol worden berekend. Wilt u de berekening 
van een kegel dan dient u na het starten van het 
programma het woord: kegel in te voeren. Daarna 
wordt u gevraagd om de hoogte van de kegel en de 
straal van het grondvlak. Heeft u voor de hoogte 
120 en voor de straal 50 ingevoerd dan is het resul- 
taat: 


BEREKENING LICHAMEN 


HOOGTE? 120 
STRAAL GRONDVLAK? 50 


DE KEGELINHOUD IS 314159.266 


HET MANTELOPPERVLAK IS 
20420.3523 


GEBRUIK VOOR EEN VOLGENDE 
BEREKENING DE F1-TOETS 


Voor de berekening van een bol moet u na het star- 
ten van het programma het woord bol invoeren en 
daarna de grootte van de straal. De computer geeft 
dan het resultaat van de berekening van de opper- 
vlakte en de inhoud. 


10 ‘berekening bol en kegel 

20 ’'voor interrupt met de f1 toets 
30 ON KEY GOSUB 500 

40 'voor blauw veld en kader 

50 'en witte letters 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'voor het printen van de titel 

80 GOSUB 460 

90 PI=4KATN(1) 

100 'selectie naar werkwijze 

110 PRINT"Kies 'bol’ of 'kegel’"; 
120 INPUT K$: IF K$="bol" THEN 350 
130 ’'voor verkeerde invoer 

140 IF K${)>"kegel" THEN 60 

150 GOSUB 460 

160 'invoer van gegeven 

170 PRINT: PRINT: INPUT "Hoogte";H 
180 INPUT"Straal grondvlak”;R 

190 'berekening van de kegelinhoud 
200 V=eR"24PIKH/3 

210 ‘berekening van het manteloppervlak 
220 A=SQR(R"24+H" 2) HRAPI 

230 'print het resultaat 

240 PRINT: PRINT: PRINT 

250 PRINT"De kegelinhoud is"V: PRINT 
260 PRINT"Het manteloppervlak is"A 
270 PRINT: PRINT: PRINT 

280 PRINT"Gebruik voor een volgende "5 
290 PRINT"berekening": PRINT"toets #1." 
300 'schakel 41 toets in 

310 KEY(1) ON 

320 ’wacht op een interrupt 

330 GOTO 330 

340 'bol, invoer van gegeven 

350 GOSUB 460: PRINT: PRINT 

360 INPUT"Straal";R 

370 ‘berekening bolinhoud 


380 VeR"ZHPIN4/S 

390 ‘berekening boloppervlak 

400 A=R"2#PI#4 

410 ’print het resultaat 

420 PRINT: PRINT: PRINT: 

430 PRINT"De bolinhoud is"V: PRINT 
440 PRINT"De oppervlakte is"A 

450 GOTO 270 

460 CLS: PRINT TAB(8); 

470 PRINT"Berekening bol en kegel" 
480 PRINT:PRINT:PRINT: RETURN 

490 'start het programma opnieuw 
500 KEY(1) OFF: RETURN 60 


4.12. Berekening van een kogelbaan 


Een berekening waar we een hele kluif aan zullen 
hebben, is die van de kogelbaan, dat wil zeggen: 
het berekenen van de hoek waaronder een projec- 
tiel moet worden afgevuurd om een doel op een be- 
paalde afstand te treffen. De computer heeft er 
echter geen moeite mee als we hem het volgende 
programma laten afwerken. Overigens is de bere- 
kening die hierbij wordt uitgevoerd niet in over- 
eenstemming met de werkelijkheid omdat we aan- 
nemen dat het geheel in het luchtledige plaatsvindt. 
Er zijn bij het afvuren van projectielen twee moge- 
lijkheden: vlakbaan, waarbij wordt afgevuurd on- 
der een zo klein mogelijke hoek en krombaan, 
waarbij juist wordt afgevuurd onder een zo groot 
mogelijke hoek, om ook doelen te kunnen treffen 
die achter een obstakel verborgen zijn. Voor beide 
gevallen is het programma geschikt. U kunt kiezen 
voor vlakbaan door na het starten van het pro- 
gramma VB in te toetsen. Toetst u KB in dan kiest 
u voor krombaan. Daarna moet u de aanvangs- 
snelheid van het projectiel en de afstand tot het 
doel invoeren. Kiest u een te lage aanvangssnelheid 
om de afstand te kunnen overbruggen dan wordt u 
netjes verteld hoe groot de aanvangssnelheid min- 
stens moet zijn. Kiest u voor vlakbaan en voert u 
een aanvangssnelheid van 500 m/s en een afstand 
van 5000 m in dan is het resultaat: 


KIES VLAKBAAN (VB) OF 
KROMBAAN (KB) 

2? VB 
AANVANGSSNELHEID? 500 


AFSTAND? 5000 
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DE HOEK WAARONDER MOET WOR- 
DEN GESCHOTEN IS 
205758422 RAD 


DE GROOTSTE HOOGTE IS 
521.780376 


GEBRUIK VOOR DE VOLGENDE 
BEREKENING TOETS F1 


Zoals u ziet wordt ook door het programma bere- 
kend wat de grootste hoogte is die door het projec- 
tiel wordt bereikt. Na het bedienen van de f1l-toets 
kunt u weer een nieuwe berekening laten maken. 
Als u nu KB kiest en dezelfde gegevens invoert dan 
wordt de hoek 1.3650379 radialen en de grootste 
hoogte 11978.2196 meter. 


10 'kogelbaan 

20 'voor interrupt met de f1 toets 
30 ON KEY GOSUB 660 

40 ‘voor blauw veld en kader 

50 ‘en witte letters 

60 SCREEN Ot WIDTH(40): COLOR 15,4,4 
70 PI=44ATN(1) 

80 'voor het printen van de titel 
90 GOSUB 620 

100 'selectie naar werkwijze 

110 PRINT"Kies vlakbaan (VB) of * 
120 PRINT"krombaan (KB) "sj 

130 INPUT G$ 

140 IF G$="KB" THEN A=1: GOTO 170 
150 ‘opnieuw bij verkeerde invoer 
160 A=0: IF GS<>"UB" THEN 60 

170 ‘invoer van de gegevens 

180 GOSURB 620 

190 INPUT"Aanvangssnelheid";VO0 

200 PRINT: INPUT"Afstand";S 

210 P=9,.824S/VO0"2: Q=4-44P 

220 ’ga na of VO te klein is voor S 
230 IF P>.4909 THEN 520 

240 'selectie VB of KB 

250 IF A=t THEN 470 

240 'vlakbaan, berekening van de hoek 
270 H=O 

280 X=P-COS(H) #SIN(H) 

290 IF ABS(X)<1E-07 THEN 320 

300 H=H+XtPI/Q: GOTO 280 

310 ‘berekening van de hoogte 

320 T=VORSIN(H)/105 HS!'=4,9INT"25 H!e=H 
330 'het printen van het resultaat 
340 PRINT: PRINT: PRINT 

350 PRINT"De hoek waaronder moet "5 
360 PRINT"worden geschoten" 

370 PRINT"is"H!"radialen" 

380 PRINT"De grootste hoogte is"HS! 


390 PRINT: PRINT: PRINT 

400 PRINT"Gebruik voor een volgende "5 
410 PRINT"berekening toets f1,* 
420 'schakel f1 toets in 

430 KEY(1) ON 

440 ’wacht op de interrupt 

450 GOTO 450 

460 'krombaan, berekening van de hoek 
470 H=PI/2 

480 X=P-COS(H) &SIN(H) 

490 IF ABS(X)<1E-07 THEN 320 

500 H=H-X#PI/Q: GOTO 480 

510 'berekening min. VO bij gegeven S 
520 VO=SQR(H.82HS/. 4909) 

530 PRINT: PRINT: PRINT 

540 PRINT"De aanvangssnelheid moet "4 
550 PRINT"minstens gelijkzijn aan”; 
560 PRINT VO 

570 PRINT: PRINT: PRINT 

580 PRINT"Gebruik de spatiebalk." 

590 GE=INKEYS: IF G&C>CHR$(32) THEN 590 
600 GOTO 180 

619 ’'subr. print de titel 

620 CLS: PRINT TAB(15); 

630 PRINT"Kogelbaan.” 

640 PRINT:PRINT:PRINT: RETURN 

650 'start het programma opnieuw 

660 KEY(1) OFF: RETURN 60 


4.13. Vallende voorwerpen 


Sommige vogels hebben de gewoonte om tijdens 
hun vlucht iets te laten vallen dat dan precies op 
iemands kleding of hoofd terecht komt. Het lijkt 
alsof deze dieren een ingebouwde computer heb- 
ben waarmee ze de juiste plaats kunnen berekenen 
waar ze het vuiltje los moeten laten. Met het vol- 
gende programma kan de computer dit ook. Dit 
programma berekent de afstand tot het doel waar 
de last moet worden losgelaten als de vlieghoogte 
en de vliegsnelheid worden ingevoerd. Voeren we 
als vlieghoogte 80 meter en als vliegsnelheid 5 m/s 
in dan is het resultaat: 


VALLEND VOORWERP 


VLIEGHOOGTE? 80 
VLIEGSNELHEID? 5 
DE AFSTAND IS 20 


GEBRUIK VOOR DE VOLGENDE 
BEREKENING DE SPATIEBALK 


U ziet, de juiste afstand tot het doel is 20 meter. 
Ook nu kunt u voor een volgende berekening de 
fl-toets indrukken. 


10 'vallend voorwerp 

20 'voor blauw veld en kader 

30 'en witte tekens 

40 SCREEN O: WIDTH(40): COLOR 15,4,4 
50 'het printen van de titel 

60 PRINT TAB(12)"Vallend voorwerp" 
70 ‘invoeren van de gegevens 

80 PRINT: PRINT: PRINT 

90 INPUT"Vlieghoogte";H 

100 INPUT"Vliegsnelheid"sU 

110 ‘bereken de afstand 

120 S=V#SQR(H/S) 

130 ’'print het resultaat 

140 PRINT: PRINT 

150 PRINT"De afstand is"S 

160 PRINT: PRINT: PRINT 

170 PRINT"Gebruik voor een volgende"; 
180 PRINT" berekening" 

190 PRINT"”de spatiebalk." 

200 G&=INKEYS: IF GSX>CHR$S(32) THEN 200 
210 GOTO 40 


4.14. Statistiek 


In een vorig hoofdstuk ben u al een programma te- 
gengekomen dat wat met statistiek te maken heeft, 
namelijk het programma ’'functies’’ in paragraaf 
4.6. Door dat programma wordt een lijn berekend 
naar aanleding van een aantal ingevoerde punten. 
Daarbij moet een gemiddelde snelheid worden be- 
paald van punten die bijvoorbeeld door metingen 
zijn gevonden. 

Ook bij het programma dat u in deze paragraaf 
wordt geboden wordt het gemiddelde bepaald (on- 
der andere) van een aantal ingevoerde waarden. 
Deze kunnen bijvoorbeeld het resultaat zijn van 
een aantal steekproeven (monsters). 

Direct na het starten van het programma kunt u 
achter het woord ”monster’’ op het scherm elke 
waarde afzonderlijk invoeren. Na elk ingevoerd 
getal (ook al na het eerste) worden de volgende ge- 
gevens getoond: 


a. Het getal ingevoerde waarden (n). 

b. De som van de ingevoerde getallen (E x). 

c. De gemiddelde waarde van de ingevoerde getal- 
len, berekend met E x /n en aangegeven met xg. 


d. De som van de kwadraten van de ingevoerde ge- 
tallen (E Xx). 

e. De standaardafwijking s, berekend met 
S= SQRI(E X*—n* x g°)/n — I). 

f. De standaardafwijking o, berekend met 
o=SQR((E X ° —n* x g°)/n). 


Heeft u achtereenvolgens de getallen 3, 4 en 5 inge- 


voerd dan is het resultaat na het invoeren van het 
getal 5: 


AANTAL MONSTERS n 3 


DDP 4 12 

GEM. WAARDE xgq 4 

DD 50 

Ss 1 

0 „81649658 


10 'statistiek 

20 'voor blauw veld en kader 

30 ‘en witte tekens 

40 SCREEN O7: WIDTH(40): COLOR 15,4,4 
50 'het printen van de titel 
60 PRINT TAB(14)"Statistiek. *: 
70 ‘invoeren van de gegevens 
80 PRINT 

90 'wis de regel 

100 PRINT STRINGS(38, 32) :PRINT CHRS(30) 5 
110 PRINT"Monster"SPC(9);: INPUT X 

120 'bereken het aantal monsters 

130 PRINT: NeN+1 

140 PRINT"Aantal monsters n"N: PRINT 

150 PRINT STRINGS(38, 32) :PRINT CHRS$S(30) ; 
160 'bereken het totaal v.d. monsters 
170 ZX=ZX+X: PRINT CHR$(228) *x*; 

180 PRINT SPC(15)ZX: PRINT 

190 PRINT STRINGS$S(38, 32) :PRINT CHRS(3O) ; 
200 'bereken de gemidelde waarde 

210 XG=ZX/N: PRINT"Gem. waarde xS*; 

220 PRINT SPC(3)XG: PRINT 

230 PRINT STRINGS(38,32):PRINT CHRS(Z0) ; 
240 'bereken de som v.d, kwadraten 

250 Z2=22+X*2: PRINT CHRS(228) *"x“2"; 

260 PRINT SPC(13)22: PRINT 

270 PRINT STRINGS(38, 32) :PRINT CHRS(30) ; 
280 ‘bereken de standaardafwijking 

290 D=Z2-NEXG*2 

300 ‘als N=l dan N-1=0 

310 IF N=i THEN 320 ELSE S=SOR(D/ (N-1)) 
320 SI=SQR(D/N): PRINT*S"SPC(IG)S: PRINT 
330 PRINT STRINGS(38,32):PRINT CHRS(30) 5 
340 PRINT CHR$(229)SPC(16) SI 

350 'voor het volgende monster 

360 PRINT CHR$(11)5: GOTO 60 


PRINT 
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5. Renteberekeningen 


5.1. Berekening van het percentage 


Waar we allemaal wel eens mee te maken krijgen, 
is het berekenen van rente bij geldbedragen. Het 
volgende programma maakt het mogelijk de rente 
van een bedrag te berekenen als het (netto)bedrag 
en het percentage van de rente worden ingevoerd. 
Ook het omgekeerde is mogelijk. Dan moet het 
netto- en het brutobedrag worden ingevoerd waar- 
na de computer het percentage van de rente bere- 


kent. Voor het berekenen van het brutobedrag 


moet na het starten toets B worden ingedrukt. 
Daarna kan het nettobedrag en het rentepercentage 
worden ingevoerd. Wilt u dat het rentepercentage 
wordt berekend dan moet na het starten van het 
programma de toets R worden ingedrukt. Voert u 
daarna voor het nettobedrag 200 en voor het 
brutobedrag 230 in dan is het resultaat: 


RENTEPERCENTAGE 


NETTO? 200 
BRUTO? 230 


RENTE 15% 


GEBRUIK VOOR EEN VOLGENDE 
BEREKENING DE F1-TOETS. 


10 ‘rentepercentage 

20 'voor interrupt met de f1 toets 
30 ON KEY GOSUB 420 

40 'voor blauw veld en kader 

50 'en witte tekens 

60 SCREEN O0: WIDTH(40): COLOR 15,4,4 
70 'voor het printen van de titel 

80 GOSUB 380 

SO ‘selectie naar werkwijze 

100 PRINT"Wil u het brutobedrag (B) "; 
110 PRINT'of het" 

120 PRINT"rentepercentage (R)"; 
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130 INPUT G$: IF G$="R" THEN 310 
140 IF G$<)>"B" THEN 60 

150 'bruto bedrag, input gegevens 
160 GOSUB 380: INPUT "Netto"iN 

170 PRINT: INPUT"% rente";R: PRINT 
180 'berekening bruto bedrag 

190 B=(1004R)&N/100 

200 'print het resultaat 

210 PRINT"Bruto";B 

220 PRINT: PRINT: PRINT 

230 PRINT"Gebruik voor een volgende"; 
240 PRINT" berekening" 

250 PRINT"toets #1," 

260 'schakel #1 toets in 

270 KEY(1) ON 

280 'wacht op een interrupt 

290 GOTO 290 

300 'renteberek. invoer van gegevens 
310 GOSUB 380: INPUT"Netto"iN 

320 PRINT: INPUT"Bruto";B: PRINT 
330 'berekening van de rente 

340 R=(B-N)/(N/100) 

350 'pint het resultaat 

360 PRINT"Rente"R"%": GOTO 220 
370 'subr. print de titel 

380 CLS: PRINT TAB(12); 

390 PRINT"Rentepercentage. " 

400 PRINT: PRINT: PRINT: RETURN 
410 ’start het programma opnieuw 
420 KEY(1) OFF: RUN 


5.2. Sparen 


Voor iemand die een spaarrekening heeft of er een 
wil openen, is het in het algemeen niet eenvoudig 
om uit te rekenen hoe groot het bedrag is dat hij 
aan het eind van het jaar kan verwachten. Nemen 
we aan dat steeds op de eerste van elke maand het- 
zelfde bedrag op de rekening wordt gestort dan 
moet ook elke maand opnieuw de rente worden be- 
rekend omdat het bedrag op de rekening regelma- 
tig groter wordt. 

Met het nu volgende programma kunt u het reken- 
werk aan de computer overlaten. In werkelijkheid 
is de berekening heel wat ingewikkelder. Bij de 
banken wordt namelijk rekening gehouden met de 
datum waarop de storting binnenkomt en wordt 
met dagrente gerekend, waarbij rente wordt bere- 
kend over het aantal dagen van de betreffende 
maand waarover het gestorte bedrag rentegevend 
is. Ook loopt het boekjaar niet van 1 januari tot 
31 december, maar bijvoorbeeld van 1 november 


tot 31 oktober. Een jaar blijft hoe dan ook twaalf 
maanden lang. Als we aannemen dat de storting 
steeds op de eerste van de maand plaats heeft, zal 
het programma redelijk nauwkeurig de jaarlijkse 
rente uitrekenen. Het gebruik van het programma 
is eenvoudig. Na het starten kunt u het maande- 
lijks te sparen bedrag, het rentepercentage en het 
aantal jaren invoeren dat u verwacht te kunnen 
sparen. Hierna verschijnt een tabel op uw scherm 
waarin u kunt aflezen hoe groot jaarlijks het rente- 
bedrag en het totale spaarbedrag is. Ook wordt 
vermeld hoe groot het kapitaal is dat u in die jaren 
hebt gestort en hoe groot de rente is die in totaal 
is uitgekeerd. Overigens: deze rente wordt steeds 
aan het eind van elk jaar op uw spaartegoed bijge- 
schreven. 


10 'sparen 

20 'voor interrupt met de f1 toets 

30 ON KEY GOSUB 440 

40 'voor blauw veld en kader 

50 'en witte tekens 

60 SCREEN Ot WIDTH(40): COLOR 15,4,4 
70 'voor het printen van de titel 

80 GOSUB 400: KEY OFF 

90 'invoer gegevens 

100 PRINT"Hoeveel wilt u per maand "5 
110 PRINT"sparen";: INPUT SP: PRINT 
120 PRINT"Hoe groot is de rente"s: 
130 INPUT R: PRINT 

140 PRINT"Hoeveel jaar wilt u sparen"; 
150 INPUT J: GOSUB 400 

160 ‘print de kop van de tabel 

170 PRINT"Jaar"TAB(9) "Rente" TAB(26) ; 
180 PRINT"Bedrag": PRINT STRING$(36, 195) 
190 ‘berekening rente 

200 FOR X=1 TO J; JR=0: FOR Y=t TO 12 
210 JR=EJR+INT(B#R/12)/100: B=B+SP 

220 T=T+SP; NEXT Yi B=B+JR 

230 'print de bedragen 

240 PRINT X TAB(8) JR TAB(25) B 

250 'voor het volgende jaar 

260 NEXT X 

270 ‘bereken de totale rente 

280 W=INT(100%(B-T))/100 

290 'print de totalen 

300 PRINT: PRINT 

310 PRINT"Totaal is"T"ingelegd." 

320 PRINT: PRINT"De totale rente is"W 
330 PRINT: PRINT 

340 PRINT"Gebruik toets #1," 

350 'schakel toets 41 in 

360 KEY(1) ON 

370 'wacht op interrupt 

380 GOTO 380 

390 'subr. print de titel 

400 CLS: PRINT TAB(16); 

410 PRINT"Sparen." 

420 PRINT: PRINT: PRINT: RETURN 

430 'start het programma opnieuw 

440 KEY(1) OFF: RUN 


U kunt het programma opnieuw starten door toets 
fl te gebruiken. 


5.3. De persoonlijke lening 


Bij de leningen is een persoonlijke lening zeer po- 
pulair. Bij deze lening krijgt u het bedrag dat u 
leent geheel in handen (zonder aftrek van kosten en 
rente) terwijl u eventueel de reeds afgeloste bedra- 
gen opnieuw kunt opnemen tot het maximale over- 
eengekomen bedrag. 

De verschuldigde rente wordt maandelijks bere- 
kend, rekening houdend met de dag van storting 
(dagrente), en ook maandelijks bij het nog ver- 
schuldigde bedrag opgeteld. Het kan zijn dat de 
grootte van het af te lossen bedrag afhankelijk is 
van het nog verschuldigde bedrag en daardoor elke 
maand kleiner wordt. Om zo snel mogelijk van een 
lening af te komen zal over het algemeen maande- 
lijks een gelijk bedrag worden afgelost en dat heb- 
ben we in dit programma verwerkt. 

Ook wordt ervan uitgegaan dat steeds op de eerste 
van de maand de aflossing wordt overgeschreven. 
Het is belangrijk om vooraf te weten hoeveel 
maanden er moet worden afgelost en hoe groot de 
totale kosten van de lening zijn. Op deze vragen 
geeft dit programma het antwoord. 

Veronderstel dat de grootte van de lening f 5000 is 
en dat per maand f 250 wordt afgelost bij een rente 
van 1.1% per maand, dan is het resultaat: 


PERSOONLIJKE LENING 
HOE GROOT IS HET TE LENEN 
BEDRAG? 5000 


HOE GROOT IS DE RELATIEVE 
RENTE? 1.1 


HOEVEEL LOST U PER MAAND 
AF? 250 

DE LAATSTE AFLOSSING IS 178 
DE TOTALE KOSTEN ZIJN 678 


HET AANTAL MAANDEN IS 23 
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GEBRUIK VOOR EEN VOLGENDE 
BEREKENING DE TOETS F1 


U ziet het, geld lenen is duurder dan u denkt! 


10 
20 
30 
40 
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‘lenen 
‘voor interrupt met de f1 toets 
ON KEY GOSUB 550 
‘voor blauw veld en kader 
‘en witte tekens 
SCREEN O: WIDTH(40): COLOR 15,4,4 
‘voor het printen van de titel 
GOSUR 510: KEY OFF 
‘invoer gegevens 
PRINT"Hoe groot is het te lenen "j 
PRINT"bedrag"s: INPUT B: PRINT: L=B 
PRINT"Hoe groot is de relatieve "; 
PRINT"rente";: INPUT R: PRINT 
PRINT"Hoeveel lost u per maand af"; 
INPUT A: PRINT: PRINT: PRINT 
‘maandelijkse berekening 
GOSUB 480 
'de berekening gaat door tot het 
‘nog af te lossen bedrag kleiner 
'is dan de aflossing per maand 
IF L>A THEN 120 
‘over een bedrag kleiner dan 
'25 wordt geen rente berekend 


IF L<25 THEN X=X+{: GOTO 340 
‘voor het berekenen van de rente 
‘over het laatste bedrag 

GOSUB 480 

‘Bepaal of het nog af te lossen 
‘bedrag kleiner is dan de 
‘maandelijkse aflossing 

IF SGN(L)=i THEN 240 

L=L+A 

‘print het resultaat 

PRINT"De laatste aflosing is"L 


PRINT: PRINT"De totale kosten zijn"; 
PRINT ((X-1)%A+L)-B: PRINT 
PRINT"Het aantal maanden is"X 


PRINT: PRINT: PRINT 
PRINT"Gebruik voor een volgende"; 
PRINT" berekening" 

PRINT"toets #1," 

‘schakel f1 toets in 

KEY (1) ON 
‘wacht op een 
GOTO 450 
‘subr, berekent per maand het nog 
af te lossen bedrag L 

L=INT (L#(100O4R)) /100-A 


interrupt 


XaXt1: RETURN 

‘subr. print de titel 

CLS: PRINT TAB(10); 
PRINT"Persoonlijke lening." 
PRINT: PRINT: PRINT: RETURN 
‘start het programma opnieuw 
KEY (1) OFF: RUN 


6. Complexe getallen 


6.1. Complex rekenen 


Het volgende programma maakt het mogelijk om 
via de computer berekeningen te maken met com- 
plexe getallen. De vier basisbewerkingen die we bij 
elke calculator tegenkomen zijn ook bij dit pro- 
gramma mogelijk: optellen, aftrekken, vermenig- 
vuldigen en delen. Op gelijke wijze als met een 
rekenmachine is het mogelijk om meerdere bewer- 
kingen na elkaar uit te voeren. Na invoeren en star- 
ten van het programma voeren we het reële en het 
imaginaire deel van het eerste getal in. Daarna 
volgt het bewerkingsteken en het reële deel en het 
imaginaire deel van het tweede getal. De computer 
voert nu de bewerking uit en toont het resultaat. 


Nu kan het bewerkingsteken worden ingevoerd van 
de volgende bewerking met een nieuw getal. Dit 
gaat door totdat na de laatste bewerking, die nodig 
is, in plaats van een bewerkingsteken een =teken 
is ingevoerd. De computer toont dan het definitie- 
ve resultaat. Door op de fl-toets te drukken krij- 
gen we de kans om een nieuwe opgave te bereke- 
nen. Het resultaat van de berekening 


(—30 +i41)/(2+i5) 


is als volgt: 


COMPLEXE GETALLEN 


(-30 + 141)/(2 +15) = 


(5 +18) 


REEEL DEEL? 


Het gebruik van dit programma komt geheel over- 
een met dat van "Bewerkingen met breuken”. 


10 'bewerkingen met breuken 

20 'voor interrupt met de 41 toets 
30 ON KEY GOSUB 860 

40 ‘voor blauw veld en kader 

50 'en witte tekens 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 PRINT"Wilt u een aanwijzing, "; 

80 PRINT" ja of nee";: INPUT As 

90 IF A$="ja" THEN 640 

100 IF A$<)>"nee” THEN 60 

110 'voor het printen van de titel 
120 S$="+-#/="; GOSUB 610 

130 'invoer eerste getal 

140 INPUT"Reeel deel ";RR 

150 INPUT"Imaginair deel";IR: PRINT 
160 'invoer bewerkingsteken 

170 INPUT"Bewerking";B&: PRINT 

180 FOR N= TO 5 

190 IF MIDS(SS,N,1)=B$& THEN 210 

200 NEXT Ni GOTO 170 

210 IF B&="=" THEN GOSUB 550: GOTO 470 
220 'invoer tweede getal 

230 INPUT"Reeel deel";R 

240 INPUT"Imaginair deel";I 

250 'selectie naar bewerking 

260 ON N GOTO 280, 380,400,430 

270 ‘optelling 

280 RT=RR+R: IT=IR+I 

290 'print het resultaat 

300 GOSUB 610: P=RR: Q=IR: GOSUB 550 
310 PRINT B$j: P=R: Q=I 

320 GOSUB 550: PRINT'=" 

330 PRINT: PRINT: P=RT: Q=IT: GOSUB 550 
340 RR=ERT: IR=IT: PRINT: PRINT 

350 'voor de volgende bewerking 

360 GOTO 120 

370 ‘aftrekking 

380 RT=RR-R: IT=IR-I: GOTO 300 

390 'vermenigvuldiging 

400 A=RR: B=IR: C=R: Del: GOSUB 590 
410 GOTO 300 

420 ‘deling 

430 A=RR: B=IR; C=R: De-I: GOSUB 590 
440 T=C*2+D*2: RT=RT/T: IT=IT/T 

450 GOTO 300 

460 ‘einde van de opgave 

470 PRINT: PRINT: PRINT 

480 PRINT"Gebruik voor de volgende "5 
490 PRINT"opgave de": PRINT"é1 toets." 
500 'schakel toets #1 in 

510 KEY(1) ON 

520 'wacht op een interrupt 

530 GOTO 530 

540 'subr. print een complexgetal 
550 PRINT" (*Pj: RS="+" 

560 IF Q<O THEN R$="-": Q=-Q 

570 PRINT R$" í"Q") "5: RETURN 

580 'subr. berekent het product 

590 RT=ZAKC-B*D: IT=ZAED+B#C: RETURN 
600 'subr. print de titel 

610 CLS: PRINT TAB(12); 
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6.2. 


PRINT"Complex rekenen. ": 

PRINT: PRINT: PRINT: RETURN 

CLS: PRINT"U voert eerst het re-ele "5 
PRINT"en het imagi-" 

PRINT"naire deel van het "j 
PRINT"eerste getal in en daarna "; 
PRINT"het bewerkingsteken +‚-, "ij 
PRINT"% of /. Nu voert u "j 
PRINT"het re-ele en het imaginaire"; 
PRINT" deel van het tweede getal "5 
PRINT"in. De bewer- king wordt nu "5 
PRINT"uitgevoerd. Dan kunt u "5 
PRINT"op-nieuw een bewerkingsteken"; 
PRINT" invoeren, een getal enz. " 
PRINT"Voert u inplaats van een "j 
PRINT "bewerkingstekeneen = "} 
PRINT"teken in dan krijgt u "; 
PRINT"het defini- tieve antwoord." 
PRINT: PRINT"Gebruik voor het "4 
PRINT"voortzetten van het " 


PRINT"programma de spatiebalk." 
AS=INKEY$: IF A$<>CHR$(32) THEN 830 
GOTO 120 

‘start het programma opnieuw 

KEY (1) OFF: RETURN 120 

Notatie complexe getallen 


Er zijn twee methoden om een complex getal te no- 
teren. Ten eerste door middel van een reëel deel 
plus een imaginair deel (A + IB) en ten tweede door 
een modulus en het argument; in het volgende pro- 
gramma aangegeven met R(H). Start u het pro- 
gramma dan kunt u om te beginnen kiezen in welke 
richting u wilt omzetten, van A +1IB naar R(H) of 
van R(H) naar A +IB. U kunt daarna het getal in 
de juiste notatie invoeren waarna de computer het 
getal weergeeft in de vorm die door u is gekozen. 
Heeft u gekozen voor de omzetting van A+IB 
naar R(H) en voert u het getal 8 +i1$ in dan is het 
resultaat: 
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COMPLEXE GETALLEN 


WILT U VAN A+IB NAAR R(H) (R/P) 
OF ANDEROM (P/R) 
? R/P 


REEEL DEEL? 8 
IMAGINAIR DEEL? 15 


MODULUS = 17 
ARGUMENT = 1.080839 


GEBRUIK VOOR DE VOLGENDE 
OMZETTING DE F1-TOETS. 


Het argument is hier uitgedrukt in radialen. 


10 'notatie complexe getallen 

20 'voor interrupt met de 41 toets 
30 ON KEY GOSUB 520 

40 'voor blauw veld en kader 

50 'en witte tekens 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'het printen van de titel 

80 PRINT TAB(11) "Complexe getallen." 
90 PRINT: PRINT: PRINT 

100 'keuze van stelsel 

110 PRINT"Wilt u van atib naar r(h) “5 


120 PRINT“ (R/P) of an- dersom (P/R) "; 
150 INPUT A&$: IF A$="R/P" THEN 320 
160 IF A$<>"P/R" THEN 60 


170 'invoer van de gegevens 
180 PRINT: INPUT"Modulus";R 
185 INPUT"Argument";H 

190 ‘conversie r(h) naar atib 
200 X=RKCOS(H): Y=ERHSIN(H) 
‘print het resultaat 

220 PRINT: PRINT"Reeel deel="X 
225 PRINT“ Imaginair deel="Y 
230 PRINT: PRINT: PRINT 

240 PRINT"Gebruik voor een "5 
250 PRINT"volgende omzetting” 
260 PRINT"toets f1," 

‘schakel f1 toets in 

280 KEY(1) ON 
‘wacht op 
300 GOTO 300 
‘invoer gegevens 

320 PRINT: INPUT"Reeel deel ";X 

325 INPUT"Imaginair deel"; Y 

‘niet delen door O0 

340 IF X=0 THEN 470 

‘berekening argument 

360 H=ATN(Y/X) 

‘correctie betreffende kwadrant 

380 IF Y<O THEN H=H+44ATN(1) 

IF SGN(X)=-SGN(Y) THEN H=H+4ATN(1) 
400 IF (Y=O) AND (X40) THEN H=44ATN(1) 
‘berekening modulus 

420 R=SQR(X*2+Y“2) 

‘print het resultaat 

440 PRINT: PRINT"Modulus="R 

450 PRINT"Argument="H"rad.": GOTO 230 
‘berekening argument voor x=0 

470 IF Y>O0 THEN H=2#ATN(1) 

480 IF Y<O THEN H=&ATN(1) 


interrupt 


490 ‘berekening modulus voor x=0 
500 R=Y: GOTO 440 

510 ’start het programma opnieuw 
520 KEY(1) OFF: RUN 


7. Datum 


7,1, Eeuwigdurende kalender 


De indeling van de dagen, jaren en eeuwen zoals 
we die nu kennen, geschiedt volgens de Grego- 
riaanse kalender. Deze is zo genoemd omdat hij is 
ingesteld door paus Gregorius XIII op 15 oktober 
1582, als verbetering van de Juliaanse kalender die 
daarvoor in gebruik was. Het is dus geen wonder 
dat de geboorte van Christus als begin van onze 
tijdrekening is genomen. Het is niet de enige tijd- 
rekening waarvan het begin samenhangt met een 
godsdienstige gebeurtenis. Dat is ook het geval met 
de Islamitische tijdrekening, de Hegira of Hedsje- 
ra. Het begingpunt hiervan valt samen met Mo- 
hammeds vlucht. De Joodse tijdrekening valt sa- 
men met wat in Joods orthodoxe kringen wordt ge- 
zien als het tijdstip van de schepping. We houden 
ons maar bij de tijdrekening die hier in Nederland 
officieel in gebruik is. Lastig voor een eeuwig- 
durende kalender is de onregelmatige verdeling van 
de 365 dagen, die ons jaar in het algemeen kent, 
over de twaalf maanden. Dan hebben we nog de 
schrikkeljaren van 366 dagen waarin februari een 
extra dag krijgt. Ook de schrikkeljaren komen niet 
regelmatig voor. De regel is dat elk jaar waarvan 
het jaartal deelbaar is door 4 een schrikkeljaar is, 
met uitzondering van de eeuwjaren die niet deel- 
baar zijn door 400, zoals 1700, 1800 en 1900. Als 
we een jaar van 365 dagen in weken verdelen dan 
blijft er 1 dag over (365/7 = 52 rest 1). Als 1 januari 
van een bepaald jaar op zondag valt dan valt 1 ja- 
nuari van het jaar daarop op maandag. Daarom 
moeten we voor elk jaar 1 dag corrigeren. Voor een 
eeuw zijn dat dus 100 dagen. Verdelen we deze 100 
dagen in weken dan zien we dat we voor elke eeuw 
2 dagen moeten corrigeren en voor elk schrikkel- 
jaar 1 dag extra. 


Omdat in ten schrikkeljaar de extra dag steeds aan 
de maand februari wordt toegevoegd, rekent het 
programma met jaren die lopen van 1 maart tot en 
met 28 (29) februari. Al de hiervoor genoemde re- 
gels zijn uiteraard in het programma verwezenlijkt. 
Na het starten van het programma kunnen we de 
gewenste datum invoeren. De computer vertelt dan 


op welke dag die datum valt. Heeft u als datum 
24-1-1984 ingevoerd dan is het resultaat: 


EEUWIGDURENDE KALENDER 


24 — 1 — 1984 VALT OP DINSDAG 


GEBRUIK VOOR EEN VOLGENDE 
DATUM DE F1-TOETS. 


U kunt elke datum na 1582 invoeren, in de volg- 
orde dag - maand - jaar. Het jaartal moet steeds 
met vier cijfers worden ingetoetst, dus 1984, niet 
84. 


10 ‘eeuwigdurende kalender 

20 ’'voor interrupt met de 41 toets 
30 ON KEY GOSUB 480 

40 ’voor rood veld en kader 

50 ‘en wite letters 

60 SCREEN O0: WIDTH(40): COLOR 15,6 
70 'voor het printen van de titel 

80 GOSUB 440 

90 FOR N=0 TO 6: READ AS(N): NEXT N 
100 ’invoer van de gegevens 

110 INPUT"Dag";D: INPUT"Maand";M 

120 INPUT"Jaar"; 

130 ’voor 15835 geen Greg. kalender 
140 IF J<1583 THEN 400 

150 MD=M-2: JR=J 

160 ‘jaarindeling van 1 mrt-28 febr. 
170 IF M{3 THEN MD=M+10: JR=J-1 

180 ‘afscheiden van de eeuwen 

190 E=INT(JR/100): T=JR-E#1OO 

200 ‘correctie voor de maanden (28-31) 
210 A=INT (MD42,59) 

220 ‘corr. voor de schrikkeljaren 
230 B=INT(JR/4)+INT(E/4) 

240 ‘berekening v.nh. nummer v.d. dag 
250 X=A+B+E+T+D 

260 Y=X-INT(X/7) 47 

270 'het printen van het resultaat 
280 GOSUB 440 

290 PRINT D"-*"M"-"J" valt op "AS(Y) 
300 PRINT: PRINT: PRINT 

310 PRINT"Gebruik voor een volgende"; 
320 PRINT" datum de": PRINT"41 toets." 
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330 ‘schakel toets fl in 

340 KEY(1) ON 

350 ‘wacht op een interrupt 

360 GOTO 360 

370 DATA zondag,maandag,dinsdag 
380 DATA woensdag,donderdag 

390 DATA vrijdag,zaterdag 

400 PRINT: PRINT: PRINT 

410 PRINT"Geen data voor 1585," 
420 FOR N=0 TO 5000: NEXT N5 RUN 
430 'subr., print de titel 

440 CLS: PRINT TAB(8); 

450 PRINT"Eeuwigdurende kalender." 
460 PRINT: PRINT: PRINT: RETURN 
470 ’start het programma opnieuw 
430 KEY(1) OFF: RUN 


7.2. De kalender 


Het volgende programma laat u de kalender zien 
van de maand die u wenst. U hoeft daarvoor na het 
invoeren van het programma en het starten daar- 
van slechts de maand en het betreffende jaar in te 
voeren. 

Wilt u de kalender van de maand januari 2000, dan 
voert u voor de maand 1 en voor het jaar 2000 in. 
U moet dus het nummer van de maand invoeren. 
Het resultaat hiervan is dan: 


KALENDER 


zondag 2 9 16 23 30 
maandag 3 10 17 24 31 
dinsdag 4 11 18 25 
woensdag 5 12 19 26 
donderdag 6 TA 20 27 
vrijdag 7 14 21 28 


zaterdag 18 15 22 29 


U kunt geen datum kiezen vroeger dan 1583. Wilt 
u een nieuwe datum dan hoeft u slechts toets fl in 
te drukken. De kalender verdwijnt dan van het 
scherm en u kunt gelijk een nieuwe datum invoeren 
voor een volgende kalender. 


‘kalender 

‘voor interrupt met de f1 toets 
ON KEY GOSUB 860 

‘voor rood veld en kader 

‘en wite letters 
SCREEN O0: WIDTH(40); COLOR 15,6 
‘voor het printen van de titel 
GOSUB 820 
KEY OFF 

‘invoer van de gegevens 

‘het maandnummer invoeren 

INPUT "Maand"; 

INPUT" Jaar"; 

‘voor 1583 geen Greg. kalender 
IF J<1583 THEN 780 

MD=M-2: JR=J 

‘jaarindeling van 1 mrt-28 febr. 
IF M{3 THEN MD=M+10: JR=J-1 
‘afscheiden van de eeuwen 
E=INT(JR/100) : T=JR-E#10O0 
‘correctie voor de maanden (28-31) 
A=INT (MD#2, 59) 

‘corr, voor de schrikkeljaren 
B=INT(JR/4) +INT(E/4) 

‘bepaal op welke dag 

‘de eerste van de maand valt 
X=A+B+E+T +1 

Y=X-INT(X/7) #7 

‘bepaal het aant. dagen in febr. 
IF M=2 THEN D=28: GOTO 720 
‘bepaal het aantal dagen per maand 
D=28+INT((MD+1)#2.59) -A 

‘het printen van de kalender 
GOSUB 820 

‘voor het printen v.d. maand 

IF M>ó6 THEN M=M-6: GOTO 380 

ON M GOTQ 580,590,600,610,620,630 
ON M GOTO 640,650,660,670,680, 690 
‘print maand en jaar 

PRINT TAB(8)M$" Md 

‘print de dagen v.d. week 
LOCATE 0,7 

FOR N=0 TO 6: READ A&: PRINT A& 
PRINT: NEXT N 

‘print de datum, voor 6 weken 
R=13: FOR H=0 TO 5 

‘voor de datum per week 

FOR N=Y TO 6 

P=P+1i: IF P>9 THEN R=12 

IF P=D+1 THEN 540 

LOCATE R+44H, 7+24N 

PRINT P: NEXT N 

Y=z0: NEXT H 

‘schakel de f1 toets in 

KEY (1) ON 

‘wacht op een interrupt 

GOTO 570 

M$="Januari": GOTO 400 
M$="Februari": GOTO 400 
M$="Maart": GOTO 400 
M$="April": GOTO 400 

M$="Mei": GOTO 400 

M$="Juni": GOTO 400 

M$="Juli";: GOTO 400 

M$=" Augustus"; GOTO 400 
M$="September": GOTO 400 
M$="October"; GOTO 400 
M$="November": GOTO 400 
M$="December": GOTO 400 


700 'subr, bepaalt het aantal dagen 
210 'in februari 

720 JA=J: IF T+1=100 THEN JA=E+1 
730 IF ABS(INT(JA/4)#4-JA)<.1 THEN D=29 
740 GOTO 340 

750 DATA zondag,maandag,dinsdag 

760 DATA woensdag,donderdag 

270 DATA vrijdag,zaterdag 

780 PRINT: PRINT: PRINT 

790 PRINT"Geen data voor 1583." 

800 FOR N=0 TO 5000: NEXT N: RUN 
810 ’'subr, print de titel 

820 CLS: PRINT TAB(15); 

830 PRINT"kalender,. " 

840 PRINT:PRINT: PRINT: RETURN 

850 ’start het programma opnieuw 
860 KEY(1) OFF: RUN 


7.3. Feestdagen 


Geen kalender is compleet zonder de aanduiding 
van de Christelijke feestdagen. Nu weten we alle- 
maal wel dat de kerstdagen steeds op 25 en 26 de- 
cember vallen. Anders is dat met Pasen en Pinkste- 
ren. Die wisselen per jaar en het enige wat we zeker 
weten is dat ze niet op één dag vallen. Deze feest- 
dagen zijn namelijk afhankelijk van de maancyclus 
en deze loopt nu eenmaal niet synchroon met onze 
jaartelling. 

Met het volgende programma kunt u voor elk jaar 
na 1982 bepalen op welke data deze dagen vallen. 
Na het starten van het programma hoeft u slechts 
het jaartal in te voeren van het jaar waarvan u de 
data van de feestdagen wilt weten en achtereenvol- 
gens verschijnen op uw scherm de data van: 


Carnaval, 
Aswoensdag, 
Palmzondag, 
Goede Vrijdag, 
Eerste Paasdag, 
Hemelvaartsdag en 
Eerste Pinksterdag. 


10 'berekening feestdagen 

20 ’voor interrupt met de f1 toets 
30 ON KEY GOSUB 760 

40 KEY OFF 

50 ’'voor rood veld en kader 

60 ‘en witte tekens 

70 SCREEN O: WIDTH(40): COLOR 15,6 
80 ’print de titel 

90 PRINT TAB(14) "Feestdagen. * 

100 PRINT: PRINT: PRINT 

110 'invoer van het jaartal 

120 INPUT"Jaar";J:PRINT 

130 ’geen jaartal kleiner dan 1583 
140 IF J>1582 THEN 190 


150 PRINT: PRINT: PRINT 

160 PRINT"Geen datum voor 1583." 
170 FOR N=t TO 5000: NEXT: GOTO 70 
180 ’berekening kerkelijke maancyclus 
190 DT=J: DL=19: GOSUB 560 

200 A%=R%: DL=100: GOSUB 560: B%=0% 
210 C%=R%: DT=B%: DL=4: GOSUB 560 
220 E%=Q%: Fh=R%: DT=DT+8: DL=25S 
230 GOSUB 560: G%=Q%: DT=DT-G%-7 
240 DL=3: GOSUB 560: H%=0% 

250 DT=194#A%+B%-E%-H%4+15 

260 DL=30: GOSUB 560: I%=R%: DT=C% 
270 DL=4; GOSUB 560: K%=Q%: L%=R% 
280 DT=2(F%4K%) -I%-Lh+32: DL=7 

290 GOSUB 560: N%=R%: DL=451 

300 DT=A%+1IINI%+22IN%: GOSUB 560 
310 P%=0%: Di=I%4N%-74P%43: DL=SI 
320 'correctie voor schrikkeljaren 
330 J%=J: GOSUB 590: JA=J/100 

340 J%=JA: IF B=3 THEN 370 

350 IF ABS(JA-J%)<.,01 THEN GOSUB 590 
360 'print het resultaat 

370 A$="Begin carnaval": GOSUB 650 
380 Di=Di+3: A$="Aswoensdag”: GOSUB 650 
390 Di=D1+39: A$="Palmzondaa® 

400 GOSUB 650: Di=D1+5 

410 A$="Goede vrijdag": GOSUB 650 
420 Di=Di+2: A$="Eerste paasdaa” 
430 GOSUB 650 

440 Di=D1+39: A$="Hemelvaart" 

450 GOSUB 650: Di=D1+10 

460 A$="Eerste pinksterdag" 

470 GOSUB 650: PRINT: PRINT 

480 PRINT"Gebruik voor een volgend *; 
490 PRINT"jaar toets 41," 

500 ’schakel toets #1 in 

510 KEY(1) ON 

520 'wacht op interrupt 

530 GOTO 530 

540 'subr. berekent quotient 9% 

550 'en rest R% 

560 Q%=DT/DL: R%= DT MOD DL: RETURN 
570 'subr. berekent correctie voor 
580 ‘februari in schrikkeljaren 
590 B=2: IF(J%/4-INT(J%/4)) >. 1 THEN B=3 
600 RETURN 

610 ’subroutine berekent en print 
620 'de datum 

630 ‘correctie voor het aantal 

640 'dagen per maand 

650 DT=Di: IF D1<31 THEN DT=Di-B 
660 IF D1>91 THEN DT=DI+1 

670 GOSUB 560: M=Q%: D=R%e1 

680 IF M=O THEN M$="februar:i." 

690 IF M=i THEN M$="maart.* 

700 IF M=2 THEN M$="april." 

710 IF M=3 THEN M$="mei."* 

720 IF M=4 THEN M$="juni,.* 

730 PRINT A$" valt op"DiMS: PRINT 
740 RETURN 

750 ’start het programma opnieuw 
760 KEY(1) OFF: RUN 


7.4. Aantal dagen 


Het volgende programma rekent voor u uit hoeveel 
dagen er liggen tussen twee data. Het enige wat u 
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hebt te doen, is het invoeren van de data. Na het 
starten van het programma kunt u de eerste datum 
invoeren in de volgorde dag, maand (maandnum- 
mer) en jaar. Daarna kunt u op gelijke wijze de 
tweede datum invoeren. Direct daarop geeft de 
computer het aantal dagen tussen de ingevoerde 
data. Wilt u het aantal dagen weten tussen 1 no- 
vember 1983 en 15 augustus 1984 dan is na het in- 
toetsen van 1 11 1983 en 15 8 1984 het resultaat: 


AANTAL DAGEN 


DATUM 1 
DAG? 1 
MAAND? 11 
JAAR? 1983 


DATUM 2 
DAG? 15 
MAAND? 8 
JAAR? 1984 


HET AANTAL DAGEN TUSSEN DE 
DATA IS 288 


GEBRUIK VOOR EEN VOLGENDE 
BEREKENING DE F1-TOETS. 


U kunt de data willekeurig invoeren, dat wil zeggen 
dat de vroegste datum niet beslist voorop moet 


de 
ed 


staan. Het getal dat wordt berekend geeft steeds 


het verschil aan en is dus positief. 


10 ‘berekening aantal dagen 

20 'voor interrupt met de 41 toets 
30 ON KEY GOSUB 500 

40 KEY OFF 

50 'voor rood veld en kader 

60 'en witte tekens 

70 SCREEN O: WIDTH(40): COLOR 15,6 
80 'print de titel 

90 PRINT TAB(13) "Aantal dagen." 
100 PRINT: PRINT: PRINT 

110 ’'invoer van de gegevens 

120 PRINT"Datum 1": GOSUB 290: Xi=X 
130 PRINT: PRINT"Datum 2":GOSUB 290 
140 X2=X: PRINT: PRINT: PRINT 

150 PRINT"Het aantal dagen tussen "sj 
160 PRINT"de data is": X=X2-X1 

120 IF X<O THEN X=-X 

180 PRINT X: PRINT: PRINT: PRINT 
190 PRINT"Gebruik voor een "j 

200 PRINT"volgende berekening" 

210 PRINT"toets f1," 

220 'schakel de f1 toets in 

230 KEY(1) ON 

230 'wacht op een interrupt 

250 GOTO 250 

260 ’subr. routine berekent aantal 
270 'dagen vanaf denkbeeldig jaar O 
280 'invoer gegevens van 1 datum 
290 INPUT"Dag";D: INPUT"Maand";M 
300 INPUT"Jaar"; 

310 ’geen datum voor 1583 

320 IF J>1582 THEN 380 

330 PRINT: PRINT: PRINT 

340 PRINT"Geen datum voor 1583." 
350 FOR N=O TO 5000: NEXT N 

360 RUN 

370 'jaar van 1 maart tot 28 febr. 
380 MD=M-2: JR=J 

390 IF M<3 THEN MD=M+10: JR=J-1 
400 'berekening van het aantal 

410 'dagen in het betreffende jaar 
420 A=MD#28+INT (MD#2,59) -2 

430 ‘correctie voor schrikkeljaar 
4340 E=INT(JR/100) 

450 B=INT(JR/4)+INT(E/4) -E 

460 'x is ant, dagen vanaf jr. O 
470 XeJR#I6S+A+B+D 

480 RETURN 

490 'start het programma opnieuw 
500 KEY(1) OFF: RUN 


8. Spelletjes 


8.1. Het meten van de reactiesnelheid 


Met het volgende programma kunt u uw reactie- 
snelheid testen. Na het starten van het programma 
kunt u eventueel een aanwijzing krijgen, maar als 
u het volgende goed doorleest, heeft u die aanwij- 
zing niet nodig en kunt u nee invoeren. Direct 
daarna begint het spel en kunt u het wit oplichten 
van het veld op uw scherm verwachten. Dit doet 
zich voor als een korte flits en daarop moet u zo 
snel mogelijk reageren door op de spatiebalk te 
drukken (denk er om, dit kan ontaarden in het 
slaan op de toets en deze is nu eenmaal geen aam- 
beeld; hij kan kapot!). Nu is in uw computer een 
teller ingebouwd die precies elke 1/50 seconde 
wordt opgehoogd. Met deze klok gaan we de tijd 
meten die verlopen is tussen het begin van de flits 
en uw reactie met de toets. Eerst wordt de stand 
van de teller gelezen op het moment dat de flits ver- 
schijnt en daarna op het moment dat de toets 
wordt ingedrukt. Het verschil in standen van de 
teller wordt gedeeld door 50 zodat de reactietijd in 
seconden (en delen van seconden) bekend is. De 
nauwkeurigheid kan uiteraard niet groter zijn dan 
1/50 seconde. 

Nadat u de spatiebalk hebt ingedrukt, volgt een 
nieuwe flits en kunt u opnieuw reageren enzo- 
voorts, totdat na tien flitsen de reactietijden op het 
scherm worden getoond. De flitsen komen overi- 
gens op willekeurige tijden na het indrukken van 
de spatiebalk, de ene keer vrij snel, een andere keer 
duurt het lang. U hoeft nog niet eens zo snel te rea- 
geren om de volgende resultaten te bereiken. 


REACTIETIJD 


REACTIESNELHEID IN SEC.: 


FLITS 1: _„216666667 
FLITS 2: _„266666667 
FLITS 3: _,„166666667 
FLITS 4: _„236666667 


FLITS 5: ,„236666667 
FLITS 6: ,266666667 
FLITS 7: „2 

FLITS 8: „216666667 
FLITS 9: „183333333 
FLITS 10: „183333333 


GEBRUIK VOOR EEN VOLGENDE 
SERIE DE F1-TOETS. 


U ziet, voor een volgende serie moet u de fl-toets 
indrukken. Direct daarna begint het spel van voren 
af aan. 


19 'reactiesnelheid 

20 'voor interrupt met de 41 toets 
30 ON KEY GOSUB 560 

40 'voor blauw scherm en kader 

50 'en witte tekens 

60 SCREEN Ot: WIDTH(40): COLOR 15,4,4 
70 PRINT"Druk op de toets SELECT." 
80 A=RND(1): G&=INKEY$ 

SO IF GES>CHRE(24) THEN 80 

100 PRINT"Wilt u een aanwijzing, *; 
110 INPUT"ja of nee";G$ 

120 IF G$="ja" THEN 570 

130 IF G$<)>"nee" THEN 60 

140 'voor blauw veld, wit kader 
150 ‘en witte tekens 

160 SCREEN 1: WIDTH(32): COLOR 15,4,15 
170 KEY OFF: TT=O 

180 PRINT: PRINT: PRINT: PRINT 
190 PRINT: PRINT: PRINT 

200 PRINT TAB(9) "U kunt de lits” 
210 PRINT: PRINT TAB(II) "verwachten." 
220 'voor tien flitsen 

230 FOR N=1 TO 10 

240 'bepaal de vertragingstijd 

250 GERND(1)#2000+250 

260 FOR T=0 TO Gi NEXT T 

270 ’voor wit veld, blauw kader 
280 'en blauwe tekens 

290 COLOR 4,15,4 

300 'start de timer 

310 TIME=O 

320 'tijdsduur van de flits 

330 FOR P=1 TO 10: NEXT P 

340 'terug naar blauw scherm 

350 COLOR 15,4,15 
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360 'wacht op de reactie 

370 GS=INKEYS: IF GS$<>CHR$(32) THEN 370 
380 'bepaal de reactietijd 

390 TI(N)=TIME/SO: NEXT N 

400 ‘het printen van het reultaat 

410 CLS: PRINT TAB(8) "Reactiesnelheid." 
420 PRINT: PRINT 

430 PRINT"Reactietijd in sec.": PRINT 
440 FOR N=i TO 10 

450 PRINT TAB(S)"Flits"N":"TI(N) 

460 TT=TT+TI(N): NEXT N: TT=TT/10 

470 PRINT: PRINT"Gemiddelde tijd:";TT 
480 PRINT: PRINT 

490 PRINT"Gebruik voor een volgende "j 
500 PRINT"serie": PRINT"toets 41." 

S10 ’schakel toets fl in 

520 KEY(1) ON 

530 'wacht op een interrupt 

540 GOTO 540 

550 ’start het programma opnieuw 

560 KEY(1) OFF: GOTO 160 

570 CLS: PRINT"Als u zo dadelijk door"; 
580 PRINT" op een willekeu- rige toets"; 
590 PRINT" te drukken het programma "; 
600 PRINT"ver-der laat afwerken, "; 

610 PRINT"dan ziet u tien keer na "j 
620 PRINT"elkaar het scherm wit "5 

6430 PRINT'opflitsen, De bedoeling "5 
640 PRINT"is dat u na elke flits "5 

650 PRINT"zo snelmogelijk de "; 

660 PRINT"spatiebalk indrukt." 

670 PRINT"Na de tiende flits wordt "5 
680 PRINT"uw reactiesnel-heid "5 

690 PRINT"afgedrukt, 

700 GS=INKEY$: IF G$=""THEN 200 

710 GOTO 160 


8.2. Stuivertje verwisselen 


Dit programma had eigenlijk beter kikkertje ver- 
wisselen kunnen heten. Het toont namelijk op het 
scherm een aantal kikkers die een bepaalde kleur 
hebben. Er zijn vijf groene kikkers en vijf rode 
kikkers. De vijf groene kikkers staan op vijf plaat- 
sen links vanaf het midden en de vijf rode kikkers 
rechts vanaf het midden, allemaal op één rij. Tus- 
sen de twee kleuren is een plaats vrij gehouden. Er 
zijn dus in totaal elf plaatsen voor tien kikkers. De 
bedoeling is dat aan het eind van het spel de kik- 
kers van plaats zijn verwisseld, zodat de groene 
kikkers rechts en de rode kikkers links staan. Daar- 
voor moeten ze dus over elkaar heen springen. De 
moeilijkheid is nu dat een kikker niet over meer 
dan één andere kikker kan springen. Het aantal 
stappen, dat wil zeggen: het aantal sprongen en 
verschuivingen, worden geteld. Men zegt dat het 
mogelijk is om de verwisseling in vijfendertig stap- 
pen uit te voeren. Na het starten van het program- 
ma worden de kikkers op het scherm getekend met 


Ë 
ì 
$ 
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daaronder de nummering. Deze nummering hoort 
bij de plaats, niet bij de kikker. Dat wil zeggen dat 
bij het springen van een kikker de nummering van 
de plaatsen niet verandert. U hoeft alleen maar het 
nummer van de plaats in te voeren waarop de kik- 
ker, die u wilt laten springen, staat. Deze gaat dan 
vanzelf naar de lege plaats, behalve als de sprong 
die hij moet maken te groot is. Dan gebeurt er ge- 
woon niets. Alle kikkers kunnen zowel naar links 
als naar rechts springen. Staan aan het eind van het 
spel alle kikkers op de juiste plaats (de lege plaats 
weer in het midden) dan wordt automatisch de uit- 
slag getoond met daarbij de waardering. Om een 
volgend spel te kunnen spelen dient u de fl-toets in 
te drukken. 


10 'stuivertje verwisselen 

20 ’voor de interrupt met toets #1 

30 ON KEY GOSUB 930 

40 ’voor blauw veld en kader 

50 'en witte tekens 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 KEY OFF 

80 PRINT"Wilt u een aanwijzing, ja "5 
90 INPUT"of nee";G$ 

100 IF G$="ja" THEN 990 

110 IF G$<>"nee" THEN 40 

120 ‘voor een geel veld en kader 

1350 ’en zwarte tekens 

140 SCREEN 1: WIDTH(32): COLOR 1,10,10 
150 'het invoeren van de karakters 
160 FOR A=0 TO 3: FOR B=0 TO 7 

170 READ D: FOR C=0 TO 16 STEP 8 

180 VPOKE (232+A+C)#8+B,D: NEXT C 

190 NEXT B: NEXT A 

200 ‘het invoeren van de kleuren 

210 VPOKE 8221,202: ‘groene voorgrond 
220 VPOKE 8222,170: ‘gele voorgrond 
230 VPOKE 8223,106: ‘rade voorgrond 
240 'het printen van de groene kikkers 
250 FOR A=1 TO 5: C=2352 


760 
270 


820 
850 
840 
aso 


940 


GOSUB 870: NEXT A 

‘het printen van een gele kikker 
A=6: C=240: GOSUB 870 

‘het printen van de rode kikkers 
FOR A=7 TO 11: C=248 

GOSUB 870: NEXT A 

‘voor de nummers van de kikkers 
FOR A=1 TO 11: LOCATE 3#(A-1),14 
PRINT USING"##";A: NEXT A 

'L geeft de lege plaats aan 

‘het aantal verplaatsingen is T 
L=é: T=0 

‘invoer v.h. nummer v.d. kikker 
PRINT CHR$(11): PRINT 

PRINT"Welke kikker"; 

‘het wissen van het oude nummer 
PRINT STRINGS(4, 32) ; 

‘cursor op de juiste plaats 

FOR B=0 TQ 3: PRINT CHR$(29) ; 

NEXT B 

INPUT N 

‘over niet meer dan 1 kikker 
D=ABS(N-L): IF D>2 OR D=0O THEN 390 
T=T+1 

‘bepaal de kleur v.d. gekozen kikker 
'D bevat informatie over de kleur 
GOSUB 850 

‘wis de kikker 

A=N; C=240: GOSUB 870 

‘kikker op de lege plaats 

A=L: C=D: GOSUB 870: L=N 

'ga na of de kikkers op hun plaats 
‘staan 

FOR N=1i TO 5: GOSUB 850 

IF D<> 248 THEN 390 

NEXT Ni: N=6: GOSUB 850 

IF D<>240 THEN 390 

‘het printen van het resultaat 
LOCATE 0,17: PRINT"Voor het spel "5 
PRINT "waren" T"zetten": PRINT"*nodig.” 
IF T>35 THEN 690 

PRINT"Dit is het kleinste aantal "5 
PRINT"dat mogelijk is.": GOTO 770 
IF T>39 THEN 710 

A$="zeer goed"; GOTO 760 

IF T>49 THEN 730 

A$="redelijk": GOTO 760 

IF T>59 THEN 750 

A$="matig": GOTO 760 

A$="slecht" 

PRINT"Dit is een "A&" resultaat.” 
PRINT: PRINT"Gebruik voor een "5 
PRINT"volgend spel de"; 
PRINT"toets $1," 


‘schakel toets fl in 

KEY (1) ON 

‘wacht op een interrupt 

GOTO 830 

'subr. bepaalt de kleur v.e. kikker 
D=VPEEK (64964 (N-1) 43): RETURN 


‘subr. print 1 kikker 

LOCATE S&(A-1), 11 

PRINT CHR&(C)$: PRINT CHRB(C+1) 
LOCATE S#(A-1),12 

PRINT CHR$(C+2);: PRINT CHRS(C+3) 
RETURN 

start het spel opnieuw 

KEY(1) OFF: CLS: RETURN 250 

‘data voor de kikkers 


950 DATA 0,227,63,?,74747453 

960 DATA 0,135,252,224,224,224,224,192 
970 DATA 3,15,24,24,24,24,240,0 

980 DATA 192,240,24,23,24,24,15,0 

990 CLS: PRINT"Er zijn rode en groene"; 
1000 PRINT" kikkers die aan het eind * 
1010 PRINT"van het spel van plaats "5 
1020 PRINT"moeten zijn verwisseld, “5 
1030 PRINT"Het nummer van de kik-" 
1040 PRINT"ker die van plaats moet "5 
1050 PRINT"veranderer kunt u “4 

1069 PRINT"invoeren. Elke kikker *; 
1070 PRINT"kan slechts over"; 

1080 PRINT"1 andere kikker heen "5 
1090 PRINT"springen. Het spel moet "5 
1100 PRINT'in 35 zetten te doen zijn. 
1110 PRINT: PRINT"Druk om verder *4 
1120 PRINT"te gaan met het programma"; 
1130 PRINT"'een willekeurige toets in.” 
1140 GE=INKEYS: IF G$="" THEN 11430 
1150 GOTO 130 


8.3. Verplaatsen van een getallenrij 


Het volgende spel laat u een getallenrij op een be- 
paalde manier verplaatsen. Er zijn drie regels: A, 
B, en C. Bij de aanvang van het spel staat op regel 
A een getallenrij. Deze getallenrij moet na afloop 
in dezelfde vorm op regel C staan. U mag daarbij 
slechts één getal per keer verplaatsen en wel steeds 
het laagste getal van de regel. Op de regel waarop 
het getal wordt geplaatst ontstaat daardoor weer 
een getallenrij en ook deze moet steeds aflopend 
zijn, van links naar rechts. Er kan daarom rechts 
naast een getal op een regel alleen een lager getal 
komen. Bij het verplaatsen kunt u ook regel B ge- 
bruiken. Het volgende voorbeeld moet dit verdui- 
delijken. 

Na het starten van het programma kunt u de moei- 
lijkheidsgraad invoeren. Dit is een getal van 1 tot 
en met 5 en heeft betrekking op de lengte van de 
getallenrij. Hoe groter de moeilijkheidsgraad des 
te langer de rij. Daarna ziet u de drie regels met de 
getallenrij op regel A op het scherm geplaatst. 
Door een combinatie van een getal en een letter in 
te voeren, kunt u een getal verplaatsen. Zo ver- 
plaatst de combinatie 2B het getal 2 naar rij B, als 
dat is toegestaan tenminste. Een niet toegestande 
verplaatsing voert de computer namelijk niet uit. 
Laten we aannemen dat de rij uit drie getallen be- 
staat: 


oOvP 


U voert nu IC in waarvan het resultaat is: 


ER 
B 
C 1 


Nu wordt 2B ingevoerd: 


A 3 
B 2 
6 1 


Vervolgens 1B. 


A 3 
KE  1 
C 


We gaan verder met 3C: 


A 
B 2 1 
C 3 


Het verdere verloop is nu niet moeilijk meer: 


A 1 

B 2 

6 8 

A 1 

B 

G 3 2 


Getallernr ij. 
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A 
B 
G 8 2 1 


Dit is het einde van het spel en daarna wordt u ver- 
teld in hoeveel zetten de rij is verplaatst. In werke- 
lijkheid wordt het spel met een langere getallenrij 
gespeeld. Voor een volgend spel kunt u de fl-toets 
indrukken. 


10 ’getallenrij 

20 ’voor interrrupt met toets #1 

30 ON KEY GOSUB 1560 

40 ‘voor blauw veld en kader 

50 ‘en witte tekens 

40 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 KEY OFF 

80 PRINT"Wilt u een aanwijzing, ja "sj 
90 INPUT'of nee";G$ 

100 IF G$="ja" THEN 1300 

110 IF G${)>"nee” THEN 60 

120 ’voor het printen van de titel 
150 GOSUB 850 

140 invoer van de moeilijkheidsgraad 
150 LOCATE 0,6 

160 INPUT"Welke moeilijkheidsgraad";M 
170 ’moeilijkheidsar. niet groter dan 5 
180 IF M>S5 THEN 130 

190 ‘voor het opbouwen van 

200 'de getallenrij 

210 M=4+M: FOR N=M TO 1 STEP =1 

220 ME=STREIN): AS(M)=RIGHTS (NE, 1) 
230 NEXT N 

240 'voor het printen van de rijen 
250 GOSUB 8350: GOSUB 880 

260 ’wis de laatste zet 

270 LOCATE 10,14: PRINT STRINGS(S, 32) 
280 'invoer van de zet 

290 LOCATE 0,14 

300 INPUT"Welke zet";S$ 

310 'uitsplitsen van het getal 

320 RY=ASC(RIGHTS(S&, 1) ) -64 

330 ’voor A tem, C is RY Ll t.ecm. 3 
340 IF RYC1 OR RY>3 THEN 270 

350 ’bepaal het getal op de rij 

360 NUS=LEFTS(S$, 1): NU=ASC (NUS) -48 
370 ’bepaal of het getal voorkomt 

380 IF NU<1 OR NU>M THEN 270 

390 ’selectie van rij A t.e.m. C 

400 ON RY GOTG 430,550,620 

410 'voor regel A 

420 ’zoek het kleinste getal van de rij 
430 FOR N=i TO M 

440 IF VAL(AS(N))=0O THEN NEXT N 

450 'de rij is leeq bij n=m+1 

460 IF N=M+1i THEN 510 

470 ‘opnieuw als het verkeerde getal 
480 ‘is gekozen 

490 IF VAL(AS(N))={NU THEN 270 

500 'bepaal de regel waarop het getal is 
S10 F=0: GOSUB 1020: IF F=i THEN 270 
520 'verwisel het getal 

530 AS(N-i)=NU$: GOSUB 880: GOTO 690 
540 ’voor regel BE 


550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
640 
670 
480 
490 
700 
710 
720 
730 
740 
750 
760 
270 
780 
290 
800 
810 
820 
830 
840 
350 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


FOR N=i TO M 
IF VAL(B&(N))=0 THEN NEXT MN 
IF NeM+1 THEN 590 
IF VAL(BS(N))={NU THEN 270 
F=0: GOSUB 1020: IF F=1 THEN 270 
B$(N-1)=NU$: GOSUB 880: GOTO 690 
‘voor regeì C 
FOR N=t TO M 
IF VAL(CS(N))=O THEN NEXT N 
IF N=M+i THEN 660 
IF VAL(CS(N))=(NU THEN 270 
F=0; GOSUB 1020: IF F=i THEN 270 
C$(N-1)=NUS$: GOSUB 880 
‘verhoog de zettenteller 
U=l+1 
‘ga na of rij C "vol" is 
IF C$(1)42"1" THEN 270 
‘einde van het spel 
LOCATE 0,17 
PRINT"Het resultaat is in"U; 
PRINT"zetten bereikt. ": PRINT 
PRINT"Gebruik voor een volgend "5 
PRINT"spel": PRINT"toets #1," 
‘schakel toets 41 in 
KEY (1) ON 
‘wacht op een interrupt 
GOTG 810 
‘subr, print de titel 
CLS: PRINT TAB(14); 
PRINT"Getallenrij." 
RETURN 
‘subr, print de getallenrijen 
‘rij A 
LOCATE 0,6: PRINT TAB(3) "A"CHR$(32) 5 
FOR X=M TO 1 STEP -1 
PRINT CHRS(32)AS(X) 5: NEXT X: PRINT 
TAS B 
PRINT: PRINT TAB(3) "B"CHR$(32) 5 
FOR X=M TO 1 STEP -1 
PRINT CHRS(S2)BE(X) 5: NEXT X5 PRINT 
bil con Se HN © 
PRINT: PRINT TAB(3) "C"CHR$(32) 5 
FOR X=M TO 1 STEP =1 
PRINT CHRS(32)CE(X) js : NEXT X: RETURN 
‘subr. zoekt in elke regel naar 
‘het getal 
‘voor regel A 
FOR T=i TO M 
IF VAL(AS(T))=NU THEN 1160 
NEXT T 
'voor regel B 
FOR T=i TO M 
IF VAL(BS(T))=NU THEN 1220 
NEXT T 
‘voor regel C 
FOR T=1 TO M 
IF VAL(CS(T))=NU THEN 1260 
NEXT T 
’Ga na of het getal het eerste van 
de regel is. Zo niet, nieuw getal 
‘voor regel A 
IF VAL(AS(T-1))<>0 THEN 1290 
‘het getal is het eerste v.d. regel 
‘wis het getal 
AS(T)=CHR$E(32) : GOSUB 880 
A$(T)=""; RETURN 
‘voor regel B 
IF VAL(B$S(T-1))<>0 THEN 1290 
B&(T)=CHRE(52): GOSUB 880 


1240 B&(T)="": RETURN 

1250 'voor regel C 

1260 IF VAL(C$(T-1))<>0 THEN 1290 

1270 C&(T)=CHRE(32) : GOSUR 880 

1280 C$(T)=""5 RETURN 

1290 F=i: RETURN 

1300 CLS: PRINT"U kunt kiezen voor "j 
1310 PRINT"een moeilijkheids-" 

1320 PRINT"graad 1-5, Daarna begint "4 
1330 PRINT"het spel. A, B en C stellen"; 
1340 PRINT" regels voor. Op elke *; 
1350 PRINT"regel kan slechts een "4 
1360 PRINT"aflopende getallenrij.” 
1320 PRINT"De getallenrij op regel "4 
1380 PRINT"A moet naar” 

1390 PRINT"regel C worden "5 

1400 PRINT"verplaatst, Alleen het * 
1410 PRINT"laagste getal van de *; 
1420 PRINT"regel kan worden” 

1430 PRINT"verplaatst. Dat *; 

1440 PRINT"gaat door het getal en” 
1450 PRINT"de letter van de rij *s 
1460 PRINT"waar het getal heenmoet, *5 
1470 PRINT"gecombineerd in te *; 

1480 PRINT"voeren, bij-" 

1490 PRINT"voorbeeld: 2C.": PRINT 
1500 PRINT"Gebruik om het programma *; 
1510 PRINT"te vervolgen een wille"; 
1520 PRINT"keurige toets," 

1530 GS=INKEY$: IF G$e="" THEN 1530 
1540 GOTO 130 

1550 ’start het programma opnieuw 
1560 KEY(1) OFF: RUN 130 


8.4. Neem 


Het volgende spelletje staat bekend onder de naam 
“neem” en wordt gespeeld door twee personen; of 
door één persoon tegen de computer. Het oor- 
spronkelijke spel bestond uit een aantal rijen voor- 
werpen van verschillende lengte. Om de beurt 
nemen de spelers een aantal van die voorwerpen 
weg. Degene die het laatste voorwerp wegpakt, 
heeft gewonnen. De spelregels van het spel zijn als 
volgt. De spelers nemen beurtelings van slechts één 
rij, welke rij dat geeft niet, een aantal voorwerpen 
weg. Het aantal voorwerpen dat wordt weggeno- 
men, staat ter keuze van de speler; een hele rij mag 
ook. Bij elke beurt moet echter tenminste één voor- 
werp worden weggehaald. 

De bedoeling is dat door de spelers een zodanige 
tactiek wordt gevolgd dat ze de ander dwingen om 
het voorlaatste voorwerp te moeten wegnemen. 
Daartoe moeten ze bij de eerste beurt al een zo- 
danige situatie voor de tegenspeler achterlaten dat 
deze onmogelijk kan winnen; tenzij de speler later 
een fout maakt. De speler die het spel mag begin- 
nen, heeft dus de meeste kans om te winnen, tenzij 
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de situatie waarmee het spel aanvangt net on- 
gunstig voor hem is. 

Het volgende programma zorgt ervoor dat op het 
scherm een aantal rijen volle cirkels worden ge- 
toond die schijven moeten voorstellen. Het aantal 
rijen wordt bepaald door de moeilijkheidsgraad, 1 
voor drie rijen en 2 voor vier rijen. De rijen zijn ge- 
merkt met A, B, C en eventueel D. U kunt kiezen 
of u wilt spelen tegen de computer, of tegen een an- 
dere speler. De computer laat altijd de eerste beurt 
aan u. Wordt met twee spelers gespeeld dan wordt 
de eerste beurt door het toeval bepaald. Het aantal 
schijven dat u wilt wegnemen, kunt u invoeren 
door de combinatie van dat aantal en de letter van 
de rij in te toetsen. Wilt u drie schijven van rij C 
wegnemen dan voert u 3C in. De lengte van de 
rijen bij aanvang van het spel worden ook al weer 
door het toeval bepaald. 


19 ’neem 

20 'voor interrupt met toets #1 
30 ON KEY GOSUB 1450 

40 ‘voor blauw veld en kader 
50 'en witte tekens 

60 SCREEN O0: WIDTH(40); 
70 KEY OFF 

80 ’voor een echt rnd getal 

SO A=RND(-TIME) 

100 PRINT"Wilt u een aanwijzing, ja "5 
INPUT"of nee";G$ 

120 IF G$="ja" THEN 1460 

130 IF G${)>"nee” THEN 60 

‘voor blauw veld en kader 

159 ‘en witte tekens 

160 SCREEN 1: WIDTH(32): COLOR 15,4,4 
179 ‘het invoeren van de karakters 

180 'voor de schijven 

190 FOR A=0 TO 7: READ C 

200 FOR B=G TO 32 STEP 8 


COLOR 15,4,4 


VPOKE (224+B)#8+A,C: NEXT B: NEXT A 
‘het invoeren van de kleuren 

‘van de schijven 

VPOKE 8220,20: ‘zwarte schijven 
VPOKE 8221,36: 'groene schijven 
VPOKE 8222,116: ‘cyaan schijven 
VPOKE 8223,164: ’gele schijven 
'‘moeilijkheidsgraad 3 of 4 rijen 
PRINT"Welke moeilijkheidsgraad, " 
INPUT"1 of 2";$M: M=M+2: PRINT: PRINT 
IF M>4 OR M43 THEN 290 
PRINT"Speelt u tegen de computer 
PRINT" (1) of tegen een andere " 
PRINT"speler (2) "; 

INPUT G: IF G>2 OR G<1 THEN 320 
’voor het printen van de titel 
GOSUB 1180 

‘voor m rijen 

FOR N=i TO M 

‘bepaal de lengte van de rij 
TEN)=INT(RND(IJ#G+1) : NEXT N 
PRINT: PRINT: PRINT 

INPUT"Hoe is de naam";N$(1) 
NS=NS$(1): IF G=2 THEN 1070 

‘voor het printen van de schijven 
GOSUB 1160 

‘wis de vorige zet 

GOSUB 1330 


‘invoer van de zet 

PRINT N&" is aan zet";;: INPUT A% 
'bepaal de ingevoerde rij 
K&S=RIGHTS(AS, 1): K=ZASC(KS) -64 


IF K<1 OR K)M THEN 480 

‘bepaal het aantal schijven die 
‘moeten verdwijnen 
S=zASC(LEFTS(AS, 1) ) -48 

IF S<1 OR S>T(K) THEN 480 

‘bereken het aantal schijven dat op 
’'de rij overblijft en print de rij 
T(K)=T(K)-S: GOSUB 1230 

‘bepaal of alle rijen leeq zijn 
GOSUB 1370: IF B=0 THEN 960 
‘volgende zet voor tegenspeler 

IF G=2 THEN 1130 

wis de zet 

GOSUB 1330 

‘volgende zet voor de computer 
PRINT"Ik ben aan zet"; 

‘wacht 

FOR N=i TO 2000: NEXT N 

bij gunstige situatie voor de 
‘speler een noodzet 

GOSUB 1410: IF B=0O THEN 930 
‘bepaal de eerste rij met schijven 
FOR K=i TO Mi A(K)=T(K) 

IF T(K)=0 THEN NEXT K 

‘neem steeds 1 schijf weg tot de 
‘situatie gunstig is voor winnen 
FOR N=i TO A(K): T(K)=T(K) =| 

’ga na of de situatie gunstig is 
‘voor winnen 
GOSUB 1410: 
NEXT N 
‘probeer de volgende rij 
T(K)=A(K): NEXT K 

‘print de nieuwe situatie en 

‘ga na of de comp. gewonnen heeft 
GOSUB 1230: GOSUB 1370 

IF B=0O THEN 990 


IF B=0 THEN 880 


GOSUB 1330: 


GATO 480 

‘neem van de eerste rij met schijven 
‘een schijf weg als noodzet 

FOR K=1i TO M: IF T(K)=0O THEN NEXT K 
T(K)=T(K)=-1: GOTO 880 

‘speler heeft gewonnen 

GOSUB 1330: PRINT N$" heeft "5 
PRINT"gewonnen.": GOTO 1000 

'de computer heeft gewonnen 
PRINT"Ik heb gewonnen!" 
PRINT: PRINT: PRINT 

PRINT"Gebruik voor een volgend spel" 
PRINT"toets #1." 

‘schakel toets fl in 

KEY (1) ON 

‘wacht op een interrupt 

GOTO 1060 

PRINT"Hoe is de naam van de" 
INPUT"tegenspeler"i;N$(2) 
bepaal welke speler begint 
R=INT (RND (1) #2+1) 
NS=N$(R) : GOTO 460 

‘het wisselen van speler 
IF NS=NE(1) THEN N$=N$(2) ; 
N$=N$(1) 5 GOTO 480 

‘subr. print de schijven 
GOSUB 1180: FOR K=i TO M 
GOSUB 1230: NEXT K: RETURN 
‘subr. print de titel 

CLS: PRINT TAB(7); 
PRINT"Neem de schijven. ": RETURN 
’'sub, print 1 rij met schijven 
‘voor de plaats van de cursor 
LOCATE 5,6+24K 

‘print de letter 

PRINT CHR$(64+K) CHRS$ (32) ; 

‘print de schijven 

FOR N=i TO T(K): IF T(K)=0 THEN 1300 
PRINT CHR$(32)CHRE(216+4KHE) 5: NEXT N 
‘verwijderen v.d. gekozen schijven 
PRINT STRINGS(19-24T(K) , 32) 

RETURN 

'subr. wist de regel 

LOCATE 0,16: PRINT STRINGS$(30, 32) 
LOCATE 0,16: RETURN 

'subr. telt het totaal aantal 
‘schijven 

B=T(1): FOR N=2 TO M 

B=B+T(N) 5 NEXT Ni: RETURN 

‘subr. bepaalt of de situatie 
’gunstig is voor winnen 

B=T(1): FOR R=2 TO M 

B=B AND NOT T(R) OR NOT B AND T(R) 
NEXT R: RETURN 

‘start het programma opnieuw 

KEY (1) OFF: RESTORE: RETURN 160 
CLS:PRINT"U speelt het spel NEEM "j 
PRINT"tegen de computerof "; 
PRINT"tegen elkaar. Er worden "5 
PRINT"drie rijen schijven "5 
PRINT"getoond. De speler die "j 
PRINT"aan zet is moet van 1 rij "5 
PRINT"een aantal schijven weg"; 
PRINT"nemen door het cijfer "5 
PRINT"van het aantal en de let"; 
PRINT"ter van de rij (A, B of CC)"; 
PRINT" in te voeren (bijv. 3B)."j 
PRINT" alle schijven van 1 rij "5 
PRINT"mogen worden weggenomen. "5 


GOTO 480 


1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


PRINT"De spelerdie de laatste "5 
PRINT"schijf moet nemen heeft" 
PRINT" gewonnen. * 

PRINT"U kunt kiezen uit twee "5 
PRINT "moeilijkheids- graden, "5 
PRINT"1 of 2.": PRINT: PRINT 
PRINT"Gebruik om het programma "5 
PRINT"te vervolgen een wille"; 
PRINT"keurige toets," 


1680 GS=INKEY$: IF G$="" THEN 1680 
1690 GOTO 160 
1700 DATA 60,126,255,255,255,255,126,60 


8.5. Omkeren 


Omkeren is een programma waarmee u een rij ge- 
tallen die door elkaar staan in de goede volgorde 
moet zetten. Dit gaat dan uiteraard weer op een 
bijzondere manier: steeds wordt een gedeelte (of zo 
u wilt de gehele rij) van de getallen in de omgekeer- 
de volgorde geplaatst. Stel we hebben de rij: 


1 7392848 8 


dan kunnen we de eerste zes getallen in tegenover- 
gestelde richting opschrijven: 


RER NARREN 


Met in tegenovergestelde richting wordt hier be- 
doeld: het in omgekeerde volgorde dan ze in de rij 
genoteerd staan, opschrijven van de gekozen getal- 
len. Zoals u ziet, staat het getal 9 thans vooraan in 
de rij. Nu keren we de gehele rij om, hetgeen als 
resultaat heeft dat de 9 nu op zijn plaats staat: 


64173528 


Nu kunnen we de eerste twee getallen verwisselen: 


8 6 41 73529 


Verwisselen we daarna de eerst acht getallen dan 
staat ook het getal acht op zijn plaats: 


STA B 8 8 


Bij wijze van voorbeeld voeren we alle verwisselin- 
gen uit die we bij deze methode nodig hebben om 
de getallen op de juiste volgorde te krijgen: 


49 


Zoals u ziet hebben we elf verwisselingen nodig ge- 
had om de getallen in de juiste volgorde te krijgen. 
Met deze methode is het altijd mogelijk om de 
meest vreemde combinatie in de goede volgorde te 
krijgen. Het kan vaak met een minder aantal ver- 
wisselingen als het wat handiger wordt aangepakt. 
Wel moet steeds de getallenreeks worden verwis- 
seld vanaf het begin van de rij, zoals in dit voor- 
beeld is gedaan. Dit wordt ook in het programma 
aangehouden. Direct na het starten hiervan krijgt 
u een rij van negen getallen in een volgorde die 
door het toeval is bepaald. Om te kunnen verwisse- 
len voert u het getal in dat staat op de plaats tot 
waar u de getallen wilt verwisselen. Voor de rij: 


7 1 5 2 46 3 8 9 


voert u het getal 3 in om alle getallen tot en met de 
zevende plaats verwisseld te krijgen. Op het eind 
van het spel wordt vermeld hoe veel verwisselingen 
u nodig hebt gehad. U kunt daarna kiezen of u de- 
zelfde reeks nog een keer gaat proberen dan wel 
een nieuwe reeks gaat ordenen. 


10 ’omkeren 

20 ‘voor blauw veld en kader 
30 'en witte tekens 

40 SCREEN OO: WIDTH(40): 
50 KEY OFF 

60 PRINT"Wilt u een aanwijzing, 
70 INPUT"of nee";G$: IF G$="ja" 
80 IF G$<)>"nee" THEN 40 

90 CLS: PRINT"Een aogenblikje,." 
‘voor een echt toevalsgetal 
110 A(1)=RND(-TIME) 

120 ‘voor het genereren van de getallen 
130 FOR N=i TO 9 


COLOR 15,4,4 


ja "5 
THEN 830 


50 


ACM)=INT(RND(1)#9+1) 

‘voor het vookomen van dubbele 
‘getallen 

FOR T=0 TO N-1 

IF A(T)=A(N) THEN 140 

NEXT T 

‘voor het bewaren van de reeks 
B(N)=A(N): NEXT N 

‘voor blauw veld en kader 

en witte tekens 

SCREEN 15 WIDTH(32): COLOR 15,4,4 
‘voor het printen van de titel 
‘en de reeks 

GOSUB 670: GOSUB 800 

‘voor het wissen van de vorige 
‘invoer 

LOCATE 11,11: PRINT STRINGS(4, 352) 
‘invoer van het gekozen getal 
LOCATE O,11 

INPUT"Welk getal";G 

‘voorkomen van verkeerde invoer 
IF G>9 OR G<1 THEN 300 

‘var. U geef het aantal 
’verwiselingen 

u=zU+ 1 

‘verwisel de getallen en print 
de regel 

GOSUB 710: GOSUB 800 

'ge na of de volgorde goed is 
‘niet goed, dan volgende zet 
FOR N=i TO 9 

IF A(N) <ÒN THEN 300 

NEXT N 

‘het printen van het resultaat 
LOCATE 0,15 

PRINT"U hebt"U"verwisselingen "5 
PRINT"nodig": PRINT"gehad. 

‘bij het eerste spel b=0 

IF B=i THEN 640 ELSE B=i: Uiz=U: 
PRINT: PRINT"Wilt u nogmaals "5 
PRINT"dezelfde reeks," 
PRINT"gebruik toets 1," 
PRINT"Wilt u een volgende reeks," 
PRINT"gebruik toets 2." 
GS=INKEYS$: IF G$="1" THEN 620 

IF G$<>"2" THEN 580 

RUN 90 

‘haal de oorspr. 
FOR N=1 TO 9: A(N) =B(N) 4 
GOTO 270 

PRINT"Bij het vorige spel was "5; 
PRINT"dat"Ul; Ui=U; U=0: GOTQO 530 
‘subr, print de titel 

CLS: PRINT TAB(10); 
PRINT"Verwisselen.": RETURN 

sub. keert de gekozen reeks om 
’'tel het aantal te verw. getallen 
FOR Ket TO 9: IF A(K)=G THEN 730 
NEXT K 

N=1 

‘verwissel twee getallen 

SWAP A{N),A(K) 

‘voor de volgende getallen 


u=0 


reeks weer op 
NEXT N 


N=N+t1: KeK-l: IF NXK THEN 750 
RETURN 

‘subr. print de reeks 

LOCATE 2,7: FOR N=t TO 9 
PRINT A{N)5: NEXT N 

RETURN 


830 CLS: PRINT"Bij de aanvang van het"; 
840 PRINT" spel ziet u een reeks "5 
850 PRINT"getallen in een willekeu"; 
860 PRINT"rige": PRINT"volgorde. "5 

870 PRINT"De bedoeling is dat de "3 

880 PRINT"getal- len in de normale "j 
890 PRINT"volgorde komen te” 

900 PRINT"staan. Door een getal van "5 
910 PRINT"de reeks in tetoetsen "5 

920 PRINT"wordt de volgorde van "j 

930 PRINT"de getal- len tot en met "5 
940 PRINT"de ingetoetste omgekeerd, "; 
950 PRINT"Al omkerend kunt u ze in "5 
960 PRINT"de juiste volg-orde krijgen." 
970 PRINT: PRINT"Gebruik voor het "5 
980 PRINT"vervolgen van het pro-" 

990 PRINT"gramma een willekeurige "; 
1000 PRINT"toets. 

1010 GS=INKEY$: IF G&="" THEN 1010 
1020 GOTO 90 


8.6. Schuiven 


De volgende puzzle is opgebouwd uit vijftien vak- 
jes. Elk vakje heeft zijn eigen nummer en kan 
schuiven in een rooster van vier bij vier. Er zijn dus 
zestien plaatsen in het rooster. Dit heeft tot gevolg 
dat er één plaats vrij is. Daardoor zijn de vakjes 
steeds langs een verticale of horizontale regel te 
verschuiven, voor zover die regel de lege plaats be- 
vat. Bij de aanvang van het spel is de plaats van de 
vakjes willekeurig, dat wil zeggen dat de nummers 
door elkaar staan. De bedoeling is om de vakjes 
van links naar rechts en van boven naar beneden 
door middel van schuiven in volgorde van numme- 
ring te krijgen: 


188 
a 6 7 B 
8 wi 1 
13 14 15 


Na het starten van het volgende programma wordt 
een rooster van vier bij vier op uw scherm geplaatst 
dat vijftien vakjes bevat waarvan de nummering 
door het toeval wordt bepaald. Omdat elk nummer 
slechts één keer mag voorkomen, kan het wel enige 
tijd duren voordat alle vakjes zijn verschenen. 
Daarbij is de plaats van het lege vakje ook wille- 
keurig: 


8 154 5 
2 5 11 13 
9 14 12 


Nu kunt u de vakjes laten verschuiven door een ge- 
tal in te voeren. Voert u bijvoorbeeld 9 (RETURN) 
in dan zal het vakje dat met 9 is genummerd naar 
rechts verschuiven en op de lege plaats komen. Het 
vakje zelf laat dan weer een lege plaats achter. Had 
u het getal 5 ingevoerd dan was het vakje dat met 
S is genummerd een plaats naar onderen gegaan. U 
kunt ook een hele rij laten verschuiven door slechts 
één getal in te voeren. Het intoetsen van het getal 
7 heeft het volgende resultaat: 


3 10 1 
8 7 4 6 
: 10 13 
8 5 14 12 


U ziet het, er zijn drie vakjes in één keer naar be- 
neden geschoven. Al schuivend is het mogelijk de 
vakjes op hun plaats te krijgen. Door daarna op de 
fl-toets te drukken (het lege vakje moet zich daar- 
voor in de rechter benedenhoek bevinden) krijgt u 
een nieuwe puzzle voorgeschoteld. 


Boss puzzle 

‘voor interrupt met toets #1 
ON KEY GOSUB 1440 

‘voor blauw veld en kader 

len witte tekens 
SCREEN O: WIDTH(40); COLOR 15,4,4 
PRINT"Wilt u een aanwijzing, ja "5 
INPUT"of nee";G$ 

IF G&="ja" THEN 1190 

IF G$<>"nee” THEN 60 

‘zorg voor een echt randomgetal 
A=RND (-TIME) 

‘voor grijs veld en kader 

‘en voor blauwe tekens 

COLOR 4,14,14: SCREEN 2 

OPEN "grp;" FOR OUTPUT AS #1 
‘wacht op het tekenen v.d. puzzle 
PRESET (0,0) 

PRINT #1, "Een ogenblikje." 
‘genereer 16 getallen in een 
‘random volgorde 

FOR Y=i TO 4: FOR X=1 TO 4 

GX, YI=INT(RND(I) 1641) 

‘voorkom dubbele getallen 

FOR N=i TO 4: FOR T=t TO 4 

IF N=Y AND T=X THEN 280 

IF G(X,Y)=G(T,N) THEN 230 

NEXT T: NEXT N 

‘voor het volgende getal 

NEXT X: NEXT Y 

‘print de titel op een schone regel 
SCREEN 2: PRESET (80,0) 

PRINT #1,"Boss puzzle.” 

‘het printen van het kader 

LINE (72,20)-(184,172),7,BF 

‘het printen van de vakjes 

FOR Y=1 TO 4: FOR X=1 TO 4 

GOSUB 1000; NEXT X: NEXT Y 

‘het invoeren van het getal 
PRESET (0,184): Gi$="" 

PRINT #1, "Voer het getal in." 
GS=INKEYS: IF G$="" THEN 420 
bij RETURN is getal ingevoerd 
IF GS=CHR$(13) THEN 460 
G1$=G1$+G&: GOTO 420 

G=VAL (G1$) 

‘geen verkeerd getal invoeren 

IF G{1 OR G>15 THEN 320 

‘zoek de plaats van het vakje 
FOR Q=i TO 4: FOR P=l TQ 4 

IF G(P,Q)=G THEN 540 

NEXT P: NEXT Q 

‘zoek de plaats van het lege vakje 
FOR Yie=t TO 4; FOR Xi=t TO 4 

IF G(X1,Yij=i6 THEN 590 

NEXT X1: NEXT Y1 

‘bepaal of de vakjes op een 
‘verticale rij liggen 

IF P=X1l THEN 900 

‘verkerde invoer als de vakjes nu 
‘niet op een hor. rij liggen 
Y=Q; IF Q{)Y1 THEN 320 

‘voor het schuiven van een hor. rij 


‘bepaal de richting van het schuiven 


IF P>X1 THEN 860 

‘schuiven naar rechts 

FOR X=X1i TO P+1 STEP -1 
G(X,Y)=G(X-1,Y): GOSUB 1000: NEXT X 
‘het lege vakje op zijn plaats 


700 X=P 

710 G(X,Y)=16: GOSUB 1000: G=0 

720 'ga na of nog meer geschoven 

730 'moet worden 

740 FOR N=1 TO 4: FOR T=1 TO 4: G=G+1 
750 IF G(T,N)<>G THEN 400 

760 NEXT T: NEXT N 

770 ‘einde van het spel 

780 PRESET (0,174) 

290 PRINT #1, "Voor een volgend spel "; 
800 PRINT #1,"toets 41." 

810 ’schakel toets fl in 

820 KEY(1) ON 

830 'wacht op interrupt 

840 GOTO 840 

850 'schuiven naar links 

860 FOR X=X1 TO P-1li GEX,Y)=G(Xe 1, VJ 
870 GOSUB 1000: NEXT X: GOTO 700 

880 'verticale rij 

890 'bepaal de schuifrichting 

900 X=P: IF Q)Y1 THEN 960 

910 ‘schuiven naar onder 

920 FOR Y=Y1 TO Q+1 STEP -1 

930 GEX,Y)=G(X,Y-1): GOSUB 1000: NEXT Y 
940 Y=Q: GOTO 710 

950 ‘schuiven naar boven 

960 FOR Y=Yi TO Q-1: G(X,Y)=GEX, Y+1) 
970 GOSUB 1000: NEXT Y: GOTO 940 

980 ’'subr. print 1 vakje 

990 'bepaal de kleur van het vakje 

1000 K=9: IF G(X,Y)<5 THEN K=10 

1010 IF G(X,Y)>8 AND G(X,Y){13 THEN K=10 
1020 'voor een leeg vakje 

1030 IF G(X,Y)=ió6 THEN K=4 

1040 'bereken de co-ordinaten 

1050 XO=S56+X#24: Xi=XO0+24 

1060 YO=-6+Y#34: Yi=zYO+34 

10970 ‘print het vakje 

1080 LINE (XO,YO)-(X1,Y1) ,K,BF 

1090 ‘voor de plaats van het getal 

1100 ’'in het vakje 

1110 X1=9: IF G(X,Y))9 THEN X1=8 

1120 PRESET (XO+X1,Y0413) ,K 

1130 ’print het getal in het vakje 

1140 GE=STRE(GIX, Y)) 

1150 G=l: IF G(X,Y))9 THEN G=2 

1160 A&S=RIGHT$(G$,G) 

1170 PRINT #1,A$ 

1180 RETURN 

1190 CLS: PRINT"Deze puzzle "5 

1200 PRINT"bestaat uit 15 vakjes "5 
1210 PRINT"in eend bij 4 rooster. "j 
1220 PRINT"De vakjes zijn genum-" 

1230 PRINT"merd en kunnen schuiven. "5 
1240 PRINT" Na afloop van het spel moe"; 
1250 PRINT"ten de vakjes van links "5 
1260 PRINT "naarrechts en van boven "5 
1270 PRINT"naar beneden op num=mer in "sj 
1280 PRINT"het rooster staan. U kunt "4 
1290 PRINT"met de vakjes van de "j 

1300 PRINT"verticale of de horizonta-"; 
1310 PRINT"le rij, waarin ook het le"; 
1320 PRINT"ge vakje is,": PRINT"schui"; 
1330 PRINT"ven. Daarvoor voert u het "5 
1340 PRINT" nummer van het vakje "5 
1350 PRINT"in waar de lege plaats " 
1360 PRINT"moet komen." 

1370 PRINT: PRINT"Gebruik om terug "; 
1380 PRINT"te komen in het pro-" 


1390 PRINT"gramma een willekeurige "5 
1400 PRINT"toets, " 

1410 GS=INKEYS: IF G&="" THEN 1410 
1420 GOTQ 120 

1430 ’start het programma opnieuw 
1440 KEY(1) OFF: CLOSE: RUN 120 


8.7. Getal raden 


Het volgende programma laat u een getal raden. 
Hiertoe wordt in de computer een getal gegene- 
reerd van vier cijfers. Deze cijfers zijn geheel wille- 
keurig. In dat getal kunnen meerdere gelijke cijfers 
voorkomen. Ook kan het eerste cijfer van het getal 
een 0 zijn. De computer laat dat getal niet zien zo- 
dat u het niet kent. Nu moet u een getal invoeren 
van eveneens vier cijfers, De computer vertelt u nu 
of er in dat getal cijfers staan die gelijk zijn en op 
dezelfde plaats staan als in het te raden getal. Ook 
vermeldt de computer of in het getal cijfers voor- 
komen die ook in het te raden getal aanwezig zijn 
maar die niet op de juiste plaats staan. Door voort- 
durend nieuwe getallen in te voeren met andere cij- 
fers of een andere plaatsing van de cijfers moet u 
er achter zien te komen welk getal het is. Stel dat 
het te raden getal is: 5349. 


Getal raden 
leen getal van 4 o1 


plaats= 
plaats= 


piaate= 
pliasts= 


praasts- 
plaats. ( 


wlaäts= 


in 8 poainaen 


£ nee? jail 


Voert u het getal 4329 in dan krijgt u als antwoord: 


PLAATS = 2 GOED 1 


Welke cijfers op de goede plaats staan, weet u nog 
niet (3 en 9) en u kent ook het andere goede cijfer 
nog niet (4). U voert daarom steeds andere cijfer- 
combinaties in totdat u het goede getal heeft ge- 


vonden. Als u het goede getal heeft, meldt de com- 
puter dat. Ook wordt het aantal keren vermeld dat 
u een getal hebt ingevoerd. Door ja in te toetsen 
kunt u eventueel een nieuw getal raden. Het kan 
ook zijn dat u er niet uitkomt. In plaats van een ge- 
tal in te toetsen, typt u dan het woord "’help'’. De 
computer toont dan het getal. 


10 ’getal raden 

20 'rnd getal wordt toevalsgetal 

30 CLS: KEY OFF 

40 PRINT "druk op de toets SELECT" 

50 GS=INKEY$;: A=RND(1) 

60 IF G&<)>CHR$(24) THEN 50 

70 'voor blauw veld en kader 

80 ‘en witte tekens 

90 SCREEN O0: WIDTH(40): COLOR 15,4,4 
100 PRINT"Wilt u een aanwijzina, ja *; 
110 INPUT"of nee";G$ 

120 IF G&="ja" THEN 640 

130 IF G&<)>"*nee" THEN 70 

140 CLS: T=0; G$="" 

150 'stel het te raden getal samen 

160 FOR X=1i TO 4: C$=STRE(INT(LOERND(I))) 
170 G$=G$+C$: NEXT X 

180 'print de titel 

190 PRINT TAB(14) "Getal raden."*: 
200 PRINT TAB(5); 

210 PRINT"Raad een getal van 4 cijfers." 
220 PRINT 

230 'voer het getal in 

240 INPUT"Getal";R$: CL=CSRLIN 

250 'cursor 1 regel terug 

260 LOCATE 17,CL-1 

270 P=0: G=0: Y=0 

280 IF R&="help" THEN 530 

290 IF LEN(RS)<>4 THEN 580 

300 'tel het aantal pogingen T 

310 T=T+1: FOR X=1 TO 4 

320 ‘neem elk cijfer apart 

330 CEÉ(X)=MID$(GS, 2IX, 1) 

340 RCS(X)=MIDS(RS,X, 1) 

350 'bepaal of cijfers gelijk zijn 
360 IF RCS(X)=CS(X) THEN 590 

370 'getal gevonden bij p=4 

380 NEXT Xi IF P=4 THEN 490 

390 'zoek naar goede cijters 

400 Y=Y+1: FOR X=t TO 4 

410 IF RCS(Y)=C$(X) THEN 620 

420 NEXT X 

430 ‘vergelijk het volgende cijter 
440 IF Y<4 THEN 400 

450 'geef resultaat van de poaing 
460 PRINT "plaats=";P; TAB(33) "goed";G 
470 'voor de volgende poging 

480 GOTO 230 

490 'geef het resultaat 

500 PRINT: PRINT 

510 PRINT "Getal geraden in";T; 

520 PRINT “pogingen”: PRINT: GOTO 540 
530 PRINT: PRINT "Het getal is";G$ 
540 INPUT"Nog eens? ja of nee";JS 
550 IF J$="ja" THEN 140 

560 IF JS<)>*nee” THEN 540 

570 END 


PRINT 


un 
ond 


580 PRINT: PRINT "4 cijters!": GOTO 230 
590 'tel het aantal juiste cijfers 

600 P=P+1: C$&(X)=""; RCE(X)="A" 

é10 GOTO 370 

620 'tel het aantal goede cijfers 

630 G=Gti: C&(X)="": GOTO 430 

640 CLS: PRINT"De computer heeft een * 
650 PRINT"getal van vier cijfers "; 
660 PRINT"gegenereerd. Hierin "5 

670 PRINT"kunnen meer-dere gelijke "j 
680 PRINT"cijfers voorkomen en het df 
690 PRINT"eerste cijfer kan ook "5 

200 PRINT'een O zijn, U moeteen "5 

710 PRINT"willekeurig getal van "j 

220 PRINT"vier cijfers invoeren. "5 
730 PRINT"De computer vertelt u "5 

740 PRINT"hoeveel cijfers er "5 

250 PRINT"gqoed zijn en op de "j 

260 PRINT'juiste plaats staan en "5 
770 PRINT"hoeveel cijfers er goed *; 
780 PRINT"zijn maar niet op de juiste"; 
790 PRINT" plaats": PRINT"staan." 

800 PRINT: PRINT"Gebruik een wille"; 
810 PRINT"keurige toets om in het"; 
820 PRINT"programma terug te komen.” 
830 GS=INKEY$: IF G&="" THEN 830 

840 GOTO 140 


8.8. Woord raden 


Het volgende programma laat u een woord raden. 
De bedoeling is dat de computer daarvoor een 
woord kiest uit een groot aantal woorden die hem 
ter beschikking worden gesteld. Daarvoor gaan we 
eerst een aantal files met woorden samenstellen die 
naar een tape worden geschreven. De computer 
kiest dan eerst een file en daarna een woord uit die 
file. Voor het samenstellen van de files gebruiken 
we het volgende hulpprogramma: 


10 ’'woorden in files naar de tape 

20 'voor blauw veld en kader 

30 'en witte tekens 

40 SCREEN O: WIDTH(40): COLOR 15,4,4 
50 'het printen van de titel 

60 PRINT TAB(8) "Samenstellen van files." 
20 PRINT: PRINT 

80 ‘invoeren van het aantal vd files 
90 OPEN"cas:raden" FOR OUTPUT AS #1 
100 INPUT"Aantal files";sA$ 

110 ’niet meer dan 10 files 

120 A=VAL(A$): IF A<1 OR A>10 THEN 100 
130 ‘aantal files nr. naar de tape 

140 PRINT #1, A&$ 

150 CLOSE 

160 FOR X=1 TO A 

170 ‘open de file met naam X 

180 OPEN"cas: "+STR&(X) FOR OUTPUT AS #1 
190 PRINT"File"X 

200 ‘aantal woorden in de file 

210 INPUT"Hoeveel woorden"; NS 

220 ‘niet meer dan 10 woorden per file 


230 IF VAL(NS)<1 OR VAL(NS)>10 THEN 210 
240 ‘het getal v‚h. aantal woorden 

250 'naar de tape 

260 PRINT #1, N$: FOR Y=1 TO VAL (NS) 
270 ‘invoeren van de woorden 

280 PRINT"Woord"sY;: INPUT B& 

290 ‘woorden niet langer dan 10 letters 
300 IF LEN(BS)>10 THEN 280 

310 PRINT #1, B&: NEXT Y: CLOSE 

320 'voor de volgende file 

330 NEXT X 


Na het starten van het programma wordt eerst de 
label met de filenaam ‘’woord raden’ naar de 
band geschreven. Daarna moet u het aantal files 
invoeren. Wilt u tien files van elk acht woorden sa- 
menstellen dan voert u hiervoor tien in. Dit getal 
wordt als string in de file woord raden’’ naar de 
band geschreven. Dan volgt file 1 waarvoor u eerst 
het nummer van het aantal woorden (8) van die file 
invoert. Dit nummer wordt als eerste string in de 
betreffende file geplaatst. Nu voert u na elkaar de 
woorden voor die file in. Als deze file op de band 
staat kunt u file 2 samenstellen enzovoorts, tot en 
met de laatste file. Het maximum aantal files dat 
u kunt invoeren is 10. Het maximum aantal woor- 
den per file is tien, terwijl de woorden niet meer 
dan tien letters mogen bevatten. 


Staan alle woorden op de band dan kunt u het 
hoofdprogramma in de computer laden. De casset- 
terecorder moet dan al klaar staan en de tape te- 
ruggespoeld tot voor de file "woord laden’’. Nu 
kunt u het programma starten. U drukt play in op 
de cassetterecorder en u zult zien dat een file met 
woorden in de computer wordt geladen. Welke file 
wordt bij toeval bepaald. Dan meldt de computer 
uit hoeveel letters het woord dat u moet raden is 
opgebouwd. U voert nu een letter in. De computer 
meldt of, en indien ja, hoe vaak de letter in het 
woord voorkomt. De plaats in het woord wordt 
niet bekend gemaakt. Nu probeert u een volgende 
letter, tot u alle letters van het woord hebt gevon- 
den. Ook dit wordt door de computer gemeld. Dan 
probeert u het woord samen te stellen en als u dat 
goed hebt gedaan kunt u eventueel een volgend 
woord raden. Lukt het u niet om een woord te ra- 
den dan typt u “help’’ waarop de computer het 
juiste woord geeft. 


10 'woordraden 
20 'voor blauw veld en kader 
30 ‘en witte tekens 


40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


SCREEN O: WIDTH(40); COLOR 15,4,4 
‘pnd getal wordt toevalsgetal 
CLS: KEY OFF 
PRINT "druk op toets SELECT" 
GS=INKEYS: A=RND (1) 

IF GS<>CHR$(24) THEN 80 

‘begin van het spel 

CLS 

‘inlezen van het aantal vd files 
PRINT"Een ogenblikje." 
OPEN"cas:raden"” FOR INPUT AS #1 
INPUT #1, A$: CLOSE: A=VAL (A$) 

'F is het volgnummer van de file 
FaF+1 

‘kies de file 

CLS: PRINT"De file wordt geladen." 
B(F)=INT(A4RND(I)) +1: T=O 

‘bepaal of de file als is gekozen 
FOR C=1 TO F 

IF B(F)=B(C) AND F<>C THEN 200 
NEXT C 

‘haal de file van de tape 
OPEN"cas: "+STR&(B(F))FOR INPUT AS #1 
‘inlezen van het aantal v.d. woorden 
INPUT #1, C&: N=VAL (C$) 

‘inlezen van de woorden 

FOR D=i TO N 

INPUT #1, W$S(D): NEXT D: CLOSE 
CLS: PRINT "Spoel de tape terug." 
FOR D=0O TO 5: CL=10 

COLOR CL: FOR C=O TO 500: NEXT C 
IF CL=10 THEN CL=7: GOTO 340 

NEXT D: COLOR 15 

‘het printen van de titel 

CLS: PRINT TAB(14) "Woord raden." 


PRINT TAB(10) "Type bij nood help." 
PRINT 

‘bepaal het volgnummer (1 tot N) 
T=T+1 


‘kies het woord 
P(T)=INT(NERND(I)) +1: FOR Y=t TO T 
‘bepaal of het woord al is gekozen 
IF P(T)=P(Y) AND T<)Y THEN 440 

'X is het woordnummer 

NEXT Yi: X=P(T) 

L=LEN(WS(X) ) : G5="" 

PRINT "Het woord heeft"iLj "letters." 
PRINT: INPUT"Welke letter";L$:K=0 

IF L$="help" THEN 770 

'ga na of de letter al bekend is 
FOR Q=1 TO LEN(GS) 

IF L&=MID$S(G$,Q,1) THEN 960 

NEXT 

‘bepaal of de letter in het woord is 
FOR Rei TO L 

IF LS<OMIDS(WS(X),R‚1) THEN 650 
‘letter in het woord gevonden 

’K telt het aantal gelijke letters 
‘voeg de letter bij de reeds 
‘gevonden letters 

K=eKt1l: G$=G$tL$ 

NEXT: PRINT K"keer "L$ 

IF LEN(GS)=L THEN 700 

’ voor de volgende letter 

GOTO 510 

‘alle letters van het woord gevonden 
PRINT: PRINT "U hebt alle letters.” 
PRINT "Uw letters zijn "G$&: PRINT 
INPUT"Welk woord”; WWS$ 


730 IF WW$="help" THEN 770 

740 'ga na of het woord juist is 

250 IF WWS=WE(X) THEN 780 

760 PRINT "Verkeerd woord.": GOTO 720 
770 PRINT "Het woord is "W$(X): GOTO 800 
780 PRINT "Goed geraden." 

790 ‘bepaal of alle woorden zijn geweest 
800 IF T=N THEN 860 

810 'alle woorden nog niet gevonden 
820 INPUT"Nog eens, ja of nee";J$ 

830 IF J$="ja" THEN 380 

840 IF J$<>"nee" THEN 820 ELSE 950 

850 'alle woorden v.d. file gevonden 
860 PRINT "U hebt alle woorden." 

870 '’ga na of alle files zijn geweest 
880 IF F=A THEN 940 

890 'nog niet alle files geraden 

900 PRINT "Wilt u nog een serie, "3 
910 INPUT"ja of nee"; J& 

920 IF J$="ja" THEN 170 

930 IF J$>"nee" THEN 900 ELSE 950 

940 PRINT "U hebt alle series." 

950 END 

960 PRINT'Letter al bekend.": GOTO 510 


8.9. Colormind 


Colormind is een spel dat u een kleurencombinatie 
laat raden. Daartoe stelt de computer zelf een kleu- 
rencombinatie samen die hij uiteraard niet laat 
zien. Daarna voert u een kleurencombinatie in. De 
computer vertelt hoeveel kleuren van uw combina- 
tie in zijn combinatie voorkomen maar niet op de 
juiste plaats staan en hoeveel kleuren wel op de 
goede plaats staan. Het aantal kleuren waaruit kan 
worden gekozen is beperkt tot zes. De kleurencom- 
binatie bestaat uit vier eenheden. Dat houdt in dat 
het aantal kleuren in de combinatie kleiner dan vier 
kan zijn. In dat geval komt in een combinatie een 
bepaalde kleur meer dan eens voor. Deze identieke 
kleuren kunnen ook naast elkaar staan, zoals in de 
combinatie groen, rood, rood, geel, de kleur rood 
twee keer voorkomt. 

Had u de combinatie rood, blauw, cyaan, geel in- 
gevoerd dan vermeldt de computer dat één kleur 
op de juiste plaats staat en dat één kleur wel in de 
combinatie zit, maar niet op de goede plaats. Wel- 
ke kleuren dat zijn, wordt niet vermeld. Hierbij is 
ervan uitgegaan dat de eerst genoemde combinatie 
die van de computer is. Door steeds een nieuwe 
combinatie in te voeren moet u, gebruikmakend 
van de antwoorden door de computer, de gevraag- 
de combinatie zien te vinden. U kunt echter niet 
meer dan tien combinaties invoeren. De kleuren 
waaruit gekozen kan worden zijn: rood, cyaan, 
magenta, groen, blauw en geel. 
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Na het invoeren en het starten van het programma 
kunt u uw combinatie invoeren door de eerste twee 
letters (of meer) van elke gekozen kleur in te toet- 
sen. De op deze manier ingevoerde kleuren worden 
door de computer afgedrukt als een verticale balk. 
Onder deze balk wordt met zwarte merktekens 
aangegeven hoeveel kleuren uit uw combinatie het- 
zelfde zijn en op de goede plaats staan. Met blauwe 
merktekens wordt aangegeven hoeveel kleuren er 
verder nog overeenkomen met die in de gevraagde 
combinatie maar niet op de juiste plaats staan. 
Heeft u tien combinaties ingevoerd en de gevraag- 
de combinatie niet gevonden dan wordt deze door 
de computer getoond. Heeft u de combinatie eer- 
der gevonden dan wordt dat ook door de computer 
vermeld. Steeds kunt u na een spel aan een volgend 
beginnen door de fl-toets in te drukken. 


10 'colormind 

20 ’voor interrupt met toets 41 

30 ON KEY GOSUB 1100 

40 ’voor blauw veld en kader 

50 'en witte tekens 

60 SCREEN OQO: WIDTH(40): COLOR 15,4,4 
70 PRINT"wilt u een aanwijzing, ja "j 
80 INPUT"of nee";G$ 

90 IF G$="ja" THEN 1110 

100 IF G$<)>"nee" THEN 60 

110 ’voor wit veld en kader 

120 ‘en blauwe tekens 

130 SCREEN 1: WIDTH(32): COLORS,15,15 
140 ‘invoeren van de karakters 

150 FOR P=O TO 7: A=VPEEK(1616+P) 

160 FOR N=208 TO 248 STEP 8 
170 VPOKE N#8+4+P,A: NEXT N? 
180 FOR P=0 TO 7: READ A 
190 FOR N=192 TO 200 STEP 8 
200 VPOKE N#8+P,A: NEXT N: NEXT P 
210 FOR P=O TO 7: READ A 

220 VPOKE 1544+P,A: NEXT P 


NEXT P 


‘het invoeren van de kleuren 


VPOKE 8216,31: 'zwart 
VPOKE 8217,95: '1.blauw 
VPOKE 8218,79; 'blauw 
VPOKE 8219,111: ’rood 
VPOKE 8220,127: 'cyaan 
VPOKE 8221,207: 'groen 
VPOKE 8222,223: 'magenta 
VPOKE 8223,175: 'geel 


‘voor een echt random getal 
A=RND(-TIME): CLS 

‘het vormen van de combinatie 
FOR Nei TO 4 
KEN)=INT(RND(I) 641): NEXT N 
‘het printen van de titel 

PRINT TAB({1) "Colormind." 

‘voor max. tien beurten 

FOR T=1i TO 10 

‘wissen van de ingev. combinatie 
FOR N=t TQ 45 LOCATE O, 24+N 

PRINT STRINGS(15, 32): NEXT N 
‘invoeren van de kleuren 

FOR Net TO 4: G(N)=0: LOCATE O,2+N 
INPUT "kleur ";GS(N): NEXT N 
bepaal de kleurnummers 


FOR N=t TO 4 

IF LEFT$S(GS(N) ,2)="bl" THEN GIN) =1 
IF LEFTS(GS(N),2)="ro" THEN G(N)=2 
IF LEFTS(GS(N),2)="cy" THEN G(N)=3 
IF LEFT$S(G$(N) ,2)="gr" THEN GIN) =4 
IF LEFT&(G&(N),2)="ma" THEN G(N)=5 
IF LEFT$S(G$(N),2)="ge" THEN G(N)=ó 
‘alleen de toegelaten kleuren 

IF G(N)=0 THEN 420 

‘het printen v.d. ingev, kleuren 
NEXT N: GOSUB 1050 

‘zoek naar gelijke kleuren 

‘op gelijke plaats 

PL=0; G=0: FOR Y=t TO 4 

FOR X=i TO 4 

IF G(X)=K(X) THEN 790 

'zoek naar gelijke kleuren 

‘op andere plaats 

IF G(X)=K(Y) THEN 840 

NEXT X£ NEXT Y 

‘voor het printen van het resultaat 
GOSUB 960 

NEXT T 

‘het printen v‚d, juiste combinatie 
FOR Nel TO 4: G(N)=K(N): NEXT 
GOSUB 1050 

‘print de pijl 

LOCATE 15+T,3+8: PRINT CHR$(193) 


LOCATE 0,17: PRINT"U hebt tien "5 
PRINT"beurten gehad.": GOTO 880 
‘tel het aantal juiste plaatsen 
PL=PL+1: G(X)=0 

'ga na of de combinatie juist is 
IF PL=4 THEN 850 

GOTO 670 

'tel het aantal juiste kleuren 
G=Getl: G(X)=0: GOTO 670 

LOCATE 0,17: PRINT"U hebt de "j 
PRINT"juiste combinatie" 
PRINT"gevonden. * 

PRINT"Gebruik voor een volgend "5 
PRINT"spel": PRINT"toets 41," 
‘schakel toets f1 in 

KEY (1) ON 


920 ‘wacht op een interrupt 

930 GOTA 930 

940 'subr. print het resultaat 

950 'print het aantal goede plaatsen 
9640 N=0: IF PL=O THEN 1000 

970 FOR N=i TO PL: LOCATE 15+T,11+N 
980 PRINT CHR$S(192): NEXT N: NeN-1 

990 ‘print het aantal goede kleuren 
1000 IF G=0O THEN 1030 

1010 FOR P=1i TO G: LOCATE 154+T,11+N+P 
1020 PRINT CHR$(200): NEXT P 

1030 RETURN 

1040 'subr. print de kleuren 

1050 Q=0: FOR Nei TO 4: FOR P=0O TO 1 
1060 LOCATE 15+T,3+Q: Q=Q+1 

1070 PRINT CHR$(200+G(N) #8) 

1080 NEXT P: NEXT N: RETURN 

1090 ‘voor en volgend spel 

1100 KEY OFF: CLS: RUN 330 

1110 CLS: PRINT"Colormind is een spel "3 
1120 PRINT"dat u een kleuren-combina”; 
1130 PRINT"tie laat raden. De computer"; 
1140 PRINT" kiestvier kleuren uit "5 
1150 PRINT"zes mogelijkheden. Er" 

1160 PRINT"kunnen meerdere gelijke "5 
1170 PRINT"kleuren voorko= men." 

1180 PRINT"U kunt zelf een kleurencom"; 
1190 PRINT"binatie invoe-ren door ach"; 
1200 PRINT"ter het woord kleur op het” 
1210 PRINT"scherm de eerste twee "5 
1220 PRINT"letters van elke gekozen "5 
1230 PRINT"kleur in te voeren *5 

1240 PRINT" (vier kleu- ren). Met een "5 
1250 PRINT"blauw merkteken wordt" 

1260 PRINT"aangegeven of een kleur "5 
1270 PRINT"in de gevraagde combinatie "3 
1280 PRINT"voorkomt en met een zwart * 
1290 PRINT"merkteken of een kleur "5 
1300 PRINT"voorkomt en op dejuiste "5 
1310 PRINT"plaats staat." 

1320 PRINT"U kunt kiezen uit de "j 

1330 PRINT"kleuren blauw," 

1340 PRINT"rood, cyaan, groen, magenta"; 
1350 PRINT" of geel," 

1360 PRINT: PRINT"Gebruik om het "5 
1370 PRINT"programma te vervolgen" 

1380 PRINT"een willekeurige toets." 
1390 GS=INKEY$: IF G$="" THEN 1390 
1400 GOTO 130 

1410 DATA 63,63,63,63,63,63,63,0 

1420 DATA 4,14,31,4,4,4,4,0 


8.10. Galgje 


Het spel galgje vertoont overeenkomsten met het 
spel woord raden. Er zijn echter toch wel belang- 
rijke verschillen. Bij dit spel wordt het woord ge- 
toond door het aantal letters aan te geven met een 
evenredig aantal punten: zoveel punten zoveel let- 
ters. Als u een letter raadt en het is er één die in het 
woord voorkomt dan verschijnt deze letter in de 
puntenrij op de plaats die hij in het woord heeft. 


Komt de letter meer dan eens voor dan wordt hij 
ook evenzo vaak getoond, steeds op de juiste 
plaats. Zo ziet u het woord als het ware voor u ont- 
staan. Dit maakt het wat makkelijker om het 
woord bij voorbaat, dus nog voordat alle letters 
bekend zijn, te raden. Het aantal keren dat u een 
letter kunt raden is echter beperkt. Per woord kunt 
u acht letters verkeerd raden, meer niet. De woor- 
den die u bij dit spel nodig hebt, kunt u op dezelfde 
manier invoeren als bij het spel woord raden, met 
het daarbij gegeven hulpprogramma. U zet hier- 
mee de woorden in files op de cassetteband. Na het 
starten van het programma kiest dit een file en uit 
deze file een woord, zodat de speler niet kan weten 
welk woord is gekozen. Op het scherm verschijnt 
dan de puntenrij die het aantal letters van het 
woord aangeeft. Ook is op het scherm een manne- 
tje getekend en een galg. Als u het woord niet op 
tijd raadt, hangt de man. Op een gegeven moment 
kondigt dat gevaar zich aan omdat het touw waar- 
aan de man komt te hangen, naar beneden komt 
zakken. Aan het eind van ieder spel kunt u een 
nieuw woord raden. Zijn alle woorden van een file 
geraden dan wordt door het programma een nieu- 
we file van de band gehaald. Dit gaat door totdat 
alle woorden zijn geraden. 


10 ’galgje 

20 ’voor een echt toevalsgetal 

30 A=RND(-TIME): KEY OFF 

40 ’voor een blauw veld en kader 

50 'en witte tekens 

60 SCREEN O: WIDTH(40): COLOR 15,4,4 
70 'voor een interrupt met toets #1 
80 ON KEY GOSUB 1590 

90 PRINT"Wilt u een aanwijzing, ja "5 
100 INPUT"of nee";G$: 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
290 
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IF G&="ja" THEN 1610 

IF G&<>"nee" THEN 60 

‘begin van het spel 

CLS 

‘het inlezen van het aantal vd files 
PRINT"Een ogenblikje." 
OPEN"cas!raden" FOR INPUT AS #1 
INPUT #1, A$&: CLOSE: A=VAL (A$) 

'F is het volgnummer van de file 
FaF+1: T=0 

‘kies de file 

SCREEN O 

PRINT"De file wordt geladen." 
B(F)=INT(AERND (IJ) +1 
‘bepaal of de file al 
FOR C=i TO F 
IF B(F)=B(C) 
NEXT C 

‘haal de file van de tape 

OPEN"cas: "+STRE(B(F))FOR INPUT AS #1 


is gekozen 


AND F<>C THEN 240 


‘inlezen van het aantal v.d. woorden 
INPUT #1, C&: N=VAL(C$) 

‘inlezen van de woorden 

FOR D=i TO N 

INPUT #1, WS(D): NEXT D: CLOSE 

CLS: PRINT"Spoel de tape terug." 

FOR D=O TO 8: CL=15 

COLOR CL: FOR C=O TO 250: NEXT C 

IF CL=15 THEN CL=7?: GOTO 380 


NEXT D: COLOR 15 

‘voor blauw veld en kader 

‘en voor witte tekens 

SCREEN 1,3: WIDTH(32): COLOR 15,4,4 
‘het invoeren van de spritepatronen 
RESTORE: FOR D=0 TO 2: S$="" 

FOR C=O TO 31: READ E 
S$=S5E+CHRE(E) : NEXT C 
SPRITES(D)=S$: NEXT D 

‘print de titel 

PRINT TAB(12) "Galgje." 

‘print de hor. galgbalk 

LOCATE 18,8: PRINT CHR$(202) ; 

PRINT STRINGS(4,223) 

‘print de vert. galgbalk 

FOR Y=0 TO 10: LOCATE 23,8+Y 

PRINT CHR$(221): NEXT Y 

‘print de bodemlijn 

LOCATE 16,19 

PRINT STRINGS(9, 195) 

‘print de man op de bodemlijn 

PUT SPRITE O,(132,119),10,0 

‘kies een woord 

T=T+1 

PCT)=INT (NERND (1) +1) 

’ga na of het woord al eerder 

‘is gekozen 
FOR E=1 TO T 
IF P(T)=P(E) 
NEXT E 

‘geet de lengte van het woord 
WW$="": L=LEN(WS(P(T))) 

FOR E={ TO L: WWS(E)=", " 
WWS=WWE+WWE(E) : NEXT E 

‘voor het printen van de stippen 
GOSUB 1550 

‘maximum aantal beurten L+8 

FOR P=i TO L+8 
‘wis de laatste 
LOCATE 13,6 


AND T<>E THEN 640 


invoer 


PRINT STRINGS(15, 32) 

’terug naar de gewiste regel 
LOCATE 0,6 

‘voer de gekozen letter in 
INPUT"Welke letter";L$ 
‘vergelijk de ingevoerde letter 
‘met de letters van het woord 
FOR E=1 TO L 
LLS=MIDS(WE(P(T)),E,‚ 1) 

‘noteer de plaats van de letter 
‘indien deze in het woord voorkomt 
IF L&=LL$ THEN WWS(E)=L$ 


920 NEXT E 


950 WW$=""; 
960 WWE=WWE+WIE(E) ; 


‘plaats de gevonden letters 
‘op de stippen 

FOR E=i TO L 

NEXT E 
‘print de gevonden letters 


980 GOSUB 1550 


‘qa na of het woord is gevonden 
IF WW$=WE(P(T)) THEN 1210 
bepaal of het touw moet zakken 
IF PòL+3 THEN 1380 
‘voor de volgende beurt 
NEXT P 


‘het woord is niet gevonden 
‘print het juiste woord 
WWS=WE(P(T) ) 

GOSUB 1550 

LOCATE 0,6 

PRINT"Te laat, gebruik toets #1," 
‘voor interrupt met toets 41 

KEY (1) ON 


‘de man aan de galg 

FOR D=O TO 2 

FOR C=O TO 60: NEXT C 

PUT SPRITE O,(132,100),8+D,D:NEXT D 
FOR C=O TO 60: NEXT C 

PUT SPRITE O,(132,100),9,1 

GOTO 1140 
‘het woord 
LOCATE O,21 
PRINT"U hebt het woord geraden." 
‘als F=A dan zijn alle 

‘files geraden 

IF F=A AND T=N THEN 1350 
PRINT"Wilt u een volgend spel," 
INPUT"ja of nee";G$ 

IF G&="nee" THEN END 

IF G$<)>"ja" THEN 1210 

‘als T=eN dan zijn alle woorden 
‘van de file geraden 

IF T<ÒN THEN 430 

‘voor de volgende file 

GOTO 200 

PRINT"U hebt alle woorden gehad." 
END 

‘het printen van het touw 

FOR C=O TO P-L-4 
LOCATE 18,9+C 
PRINTCHRS (1) CHR$S (86) : 
GOTO 1040 

‘data voor spritepatroon Î 

DATA 3,7,3,1,3,7,11,19,3, 3, 1,4, 1,1 
DATA 1,3,128,128,128,0,128,192,160 
DATA 144,128,128,0,0,0,0,0,0 

‘data voor spritepatroon 2 

DATA 3,7,3,1,3,7,7,15,11,3,1,;2,6,4 
DATA 12,0,128,128,128,0,128,192,192 


is geraden 


NEXT C 


1490 DATA 224,160,128,128,192,64,32,64,0 
1500 'data voor spritepatroon 3 

1510 DATA 3,7,5,1,3, 3450707450044, 405 16 
1520 DATA 0,0,128,128,128,0,128,128,128 
1530 DATA 192,192,128,128,64,32,16,32,0 
1540 'subr. print de gevonden letters 
1550 LOCATE 0,4 

1560 PRINT"Het woord: "sWW$ 

1570 RETURN 

1580 'terug naar het programma 

1590 KEY(1) OFF: LOCATE O,21 

1600 RETURN 1260 

1610 CLS: PRINT"Galgje is een spel dat"; 
1620 PRINT" u een woord laat raden. "5 
1630 PRINT"Een aantal stippen geven "5 
1640 PRINT"de lengq-te van het woord. "5 
1650 PRINT"U kunt een letter in-" 

1660 PRINT"voeren en als deze in het "5 
1670 PRINT"woord voorkomtwordt hij "5 
1680 PRINT'op de juiste plaats ge"; 
1690 PRINT"toond. Door steeds "5 

1700 PRINT"opnieuw een letter in te" 
1710 PRINT"voeren moet u het woord "5 
1720 PRINT"raden. U kunt" 

1730 PRINT"een max. aantal letters "5 
1740 PRINT"invoeren. Heeft u het dan "5 
1750 PRINT*nog niet gevonden dan "5 
1760 PRINT"hangt": PRINT"de man." 

1770 PRINT: PRINT"Gebruik om naar het "5 
1780 PRINT"programma terug te" 

1790 PRINT"keren een willekeurige "5 
1800 PRINT"toets. " 

1810 GS=INKEYS:IF G&="" THEN 1810 

1820 GOTO 140 


8.11. Ruimtecapsule 


In het spel “ruimtecapsule’’ gaat het erom een 
ruimtecapsule heelhuids te laten landen op het op- 
pervlak van een denkbeeldige planeet. Een hinder- 
nis hierbij is dat niet al te ruim kan worden om- 
gesprongen met de brandstof die nodig is voor de 
remraketten. Deze remraketten zijn hard nodig 
omdat de denkbeeldige planeet geen dampkring 
heeft die een remmende werking kan uitoefenen op 
de capsule. Bij de aanvang van het spel is de cap- 
sule op 500 000 m afstand van de planeet en heeft 
hij een daalsnelheid van 2500 m/s. U heeft 7000 kg 
brandstof en de valversnelling is 4 m/s°2. Deze ge- 
gevens krijgt u op het scherm geprint direct na het 
starten van het programma. U ziet de hoogte bo- 
ven het oppervlak, die in meter is gegeven, kleiner 
worden. Verder ziet u dat de vertraging, dat be- 
tekent de snelheidsvermindering van de capsule, 
—4 m/s 2 is. De eenheden zijn overigens niet ach- 
ter de getallen vermeld. Een negatieve snelheids- 
vermindering houdt in dat de capsule steeds sneller 
zal vallen. De remraketten zullen de daalsnelheid 
moeten laten afnemen. Er is nog geen brandstof 


verbruikt. Dat de snelheid toeneemt, blijkt uit het 
getal van de daalsnelheid. Dit wordt uiteraard ver- 
oorzaakt door de valversnelling ten gevolge van de 
aantrekkingskracht van de planeet. Als de hoogte 
is verminderd tot 400000 m ziet u aan de rechter- 
bovenkant van het scherm de onderkant van de 
capsule verschijnen. De daalsnelheid van de capsu- 
le op uw scherm is in overeenstemming met het ge- 
tal dat daarvoor wordt getoond. U kunt de rem- 
raketten in werking stellen door het indrukken van 
de CRSR-toets (CRSR UP). De vertragende wer- 
king daarvan ziet u aan het getal achter VERTRA- 
GING, dat van —4 al snel verandert in een positief 
getal. U ziet de snelheid verminderen en tegelijker- 
tijd de brandstofhoeveelheid afnemen. De bedoe- 
ling is dat de snelheid kleiner is dan $ m/s op het 
moment dat de capsule de bodem raakt (hoogte is 
0). Bij een grotere landingssnelheid wordt de cap- 
sule vernield. Heeft u zoveel brandstof verbruikt 
dat deze voor de landing op is, dan neemt de val- 
snelheid weer toe en zal de capsule te pletter vallen. 
Natuurlijk zult u de remwerking wel eens willen 
verminderen. Dat kan ook met een CRSR-toets 
(CRSR DOWN). Voor het brandstofverbruik is 
het erg ongunstig als u de vertraging zo groot 
maakt en de remmende werking zo lang laat duren 
dat de capsule zelfs weer gaat opstijgen. Deze si- 
tuatie zult u in elk geval moeten zien te voorko- 
men. 


10 ‘ruimtecapsule 

20 ’voor een interrupt met de f1 toets 
30 ON KEY GOSUB 1000 

40 'voor elke seconde een interrupt 

50 ON INTERVAL=5O GOSUB 1020 

60 'freg. getal ruis, kanaal 1 aan 


70 SOUND 6,27: SOUND 7,54: SOUND 8,16 760 IF A1<O THEN A1=0 


80 'instellen periodetijd omhullende 770 GOTO 410 

90 SOUND 11,49: SOUND 12,30: SOUND 0,55 780 'qa na of de landingssnelheid 

100 'voor blauw veld en kader 790 'niet te groot is 

119 'en witte tekens 800 IF VÒS THEN 930 

120 SCREEN O: WIDTH(40): COLOR 15,4,4 810 ’goede landing 

130 KEY OFF 820 LOCATE 0,8 

140 PRINT"Wilt u een aanwijzing, ja "4 830 PRINT"U heeft een goede landing "4 
150 INPUT"of nee";G$ 840 PRINT"gemaakt. ": PRINT 

160 IF G&="ja" THEN 1030 850 PRINT"Gebruik voor een volgend spel" 
170 IF G&{) "nee" THEN 120 8640 PRINT"toets #1," 

180 ’het invoeren van de spritepatronen 870 'schakel toets fl in 

190 RESTORE: FOR N=0 TO 31: READ A 880 KEY(1) ON 

200 S1i&=SIS+CHRE(A): NEXT N 890 'wacht op een interrupt met toets #1 
210 FOR N=0 TO 31: READ B 900 GOTO 900 

220 S2$=52$+CHRE(B) : NEXT N 910 'landingssnelheid te groot 

230 'voor blauw veld en kader 920 'schakel geluid in 

240 'en witte tekens 930 SOUND 1,07 SOUND 13,0 

250 SCREEN 1,3: WIDTH(32): COLOR 15,4,5 940 'voor spritepatroon 1 

260 'stel de sprites samen 950 PUT SPRITE O0, (176,Y), 10,1 

270 SPRITE$S(O)=S1% 960 LOCATE 0,8 

280 SPRITES(1)=52$ 970 PRINT"Uw landing is mislukt!" 

290 ’print de bodemlijn 980 PRINT: GOTO 850 

300 LOCATE 20,23 990 'terug voor volgend spel 

310 PRINT STRINGS(8, 192) 1000 KEY(1) OFF: RETURN 250 

320 'voor resp. hoogte, brandstof 1010 ’verhoog de klok met 1 sec. 

330 'versnelling en snelheid 1020 TI=TI+1: TIME=0O: RETURN 

340 H=500000!: B=7500: Ai=0: V=2500 1030 CLS: PRINT"U bevindt zich in een "js 
350 'zet de tijd (TI) op nul 19040 PRINT"ruimtecapsule op 500 km "$ 
360 TI=O: T1=0: TO=0: TIME=O: T=0: Al=0 1050 PRINT"hoogte van het oppervlak "5 
370 ‘elke sec. correctie van de tijd TI 1060 PRINT"van een planeet zonder "j 
380 INTERVAL ON 1070 PRINT"dampkring. Uw snelheid is"; 
390 ‘bereken de tijd- en de 1080 PRINT"2500 m/s en u heeft een "j 
400 'snelheidsverandering 1090 PRINT"beperkte hoe-" 

410 TI=TI+TIME/S1 1100 PRINT"veelheid brandstof. De val"; 
420 Ti=TI: T=T1i-TO: TO=TI: A=4-Al 1110 PRINT"versnelling is4 m/s“2, "j 
430 ‘berekening van de nieuwe hoogte 1120 PRINT"De remraketten kunt u in"$ 
440 H=H-(VRT+A/2HT" 2): IF HSO THEN H=O 1130 PRINT"scha- kelen met de CURSOR"; 
450 'bereken de Y co-ordinaat 1140 PRINT" UP toets en weer" 

460 'voor de sprite 1150 PRINT"uitschakelen met de "5 

470 Y=149-INT(H/2193) 1160 PRINT"CURSOR DOWN toets." 

480 IF Y<-50 THEN 520 1170 PRINT"Uw landingssnelheid moet "sj 
490 'print de sprite 1180 PRINT"kleiner zijn dan Sm/s." 
500 PUT SPRITE O,(176,Y),10,0 1190 PRINT: PRINT"Gebruik om terug "; 
510 'bereken de nieuwe snelheid 1200 PRINT"te komen in het” 

520 V=V+T4A 1210 PRINT"programma een "j 

530 'berekening brandstof 1220 PRINT"willekeurige toets." 

540 B=B-6#AI#T/S 1230 G$S=INKEY$: IF G$="" THEN 1230 

550 'het printen van de gegevens 1240 GOTO 190 

560 LOCATE 0,0 1250 'data voor spritepatroon 1 

570 PRINT"Hoogte"TAB(11) 5 1260 DATA 1,3,7,13,12,13,13,15 

580 PRINT USING" ###H#H" 5 INT (H) 1270 DATA 135,15,13,12,31,60,120,112 
590 PRINT: PRINT"Snelheid"TAB(11) 5 1280 DATA 128,192,224,176,176,48,176, 240 
600 PRINT USING" ####RH" 5 INT (V) 1290 DATA 240,240,240,48,248,60, 30,14 
610 PRINT: PRINT"Vertraging"TAB(11) ; 1300 ’data voor spritepatroon 2 

620 PRINT USING" ##HBHH" 5 INT (A) 1310 DATA 0,0,0,0,0,0,0,7 

630 PRINT: PRINT"Brandstof "TAB(11) 5 1320 DATA 31,31,51,127,127,127,255, 255 
640 PRINT USING" ###HHR" 5 INT (B) 1330 DATA 0,0,0,0,0,0,0,128,240, 240 
650 'ga na of de capsule geland is 1340 DATA 240,248,248,240,243,247 


660 IF H=0 THEN 800 

670 'bij B=0 brandstof op, vertraging -4 

680 IF B={0 THEN Al=0: B=0: GOTO 410 

690 ‘bepaal of een CURSOR toets in is 

260 oan tikve 8.12. Paren zoeken 
710 ’'vergroting van de vertraging 


720 IF G&=CHR$(30) THEN Al=Ai+1 Bij het volgende spel zijn in veertig vakjes twintig 
730 ‘vermindering van de vertraging es 

nan Te omschamtsis THEN Klakt-t letters verborgen. Het zijn de letters van A tot en 
750 'vertraging niet kleiner dan -4 met T en van elke letter precies twee. Het is de be- 


doeling door het openen van de vakjes de gelijke 
letters bij elkaar te zoeken. Dit spel wordt gespeeld 
door meerdere spelers. De speler die de meeste pa- 
ren letters heeft gevonden, heeft gewonnen. Elke 
speler mag twee vakjes openen. Bevatten deze twee 
vakjes verschillende letters dan worden ze weer 
gesloten en mag de volgende speler twee vakjes 
openen. Maakt een speler twee vakjes open waarin 
zich gelijke letters bevinden dan heeft hij een punt 
verdient en mag hij nogmaals twee vakjes openen. 
Dit gaat zo door totdat hij twee vakjes open maakt 
met verschillende letters. Dan gaat de beurt naar de 
volgende speler. Iedereen kan zien welke letters de 
geopende vakjes bevatten, uiteraard totdat ze weer 
worden gesloten. De bedoeling is dat iedere speler 
goed onthoudt welke letters de vakjes bevatten zo- 
dat hij later, als hij weer aan de beurt is en een be- 
paalde letter nodig heeft, weet waar hij die kan vin- 
den. Bij dit spel is een goed geheugen dan ook be- 
langrijker dan geluk. Door het vaak te spelen traint 
u dan ook uw geheugen. 

Na het starten van het programma moet eerst aan 
de computer worden verteld hoeveel spelers er 
meedoen. Dan kunt u de namen van die spelers in- 
voeren en de volgorde waarin dat geschiedt, be- 
paalt ook de volgorde waarin de spelers aan de 
beurt komen. De computer geeft met de naam van 
de speler aan wiens beurt het is. Na het invoeren 
van de namen wordt u verzocht om een ogenblikje 
te wachten. Dat "'ogenblikje’’ zal wel even duren 
want de computer moet veertig vakjes vullen met 
letters en geen enkele letter mag meer dan twee 
keer voorkomen. Daarna worden met gekleurde 
blokjes de vakjes voorgesteld: vijf regels van acht 
kolommen. De regels zijn van 1 tot en met 5 ge- 


nummerd en de kolommen met letters van A tot en 
met H. Nu geeft de computer aan welke speler aan 
de beurt is en deze kan door het invoeren van de 
letter van de kolom en het cijfer van de regel, in 
deze volgorde, bijvoorbeeld D3, een vakje openen. 
Dan verschijnt de letter in het vakje dat is geopend. 
Nu kan de speler nog een vakje openen. Zijn de let- 
ters die nu zichtbaar zijn gelijk dan blijven de vak- 
jes open maar de letters worden gewist. De speler 
blijft aan de beurt. Zijn de letters niet gelijk dan 
wordt het vakje na korte tijd gesloten en de beurt 
gaat naar de volgende speler. Het is dus zaak de 
letter snel in u op te nemen. Zijn alle paren letters 
gevonden dan wordt door de computer de uitslag 
getoond. Het indrukken van de fl-toets is nodig 
om nog een volgend spel te kunnen spelen. 


10 'zoek de paren 

20 ’voor blauw veld en kader 

30 ‘en witte tekens 

40 SCREEN O: WIDTH(40): COLOR 15,4,4 
50 KEY OFF 

60 PRINT"Wilt u een aanwijzing, ja "5 
70 INPUT"of nee";GS 

80 IF G$="ja" THEN 1510 

SO IF GC) "nee" THEN 40 

100 'voor een echt randomgetal 

110 A=RND(-TIME) 

120 'het bij toeval bepalen van 

130 'de letters voor de vakjes 

140 CLS: PRINT"Een ogenblikje.”" 

150 CLEAR 1000 

160 FOR Y=1 TO 5: FOR X={ TO 8 

170 'rnd numers van 65-104 

180 L(X,Y)=INT(RND(1) #40+65) 

190 ’'het voorkomen van dubbele nummers 
200 FOR N=i TO 5: FOR M=i TO 8 

210 IF M=X AND N=Y THEN 230 

220 IF L(X,Y)=sL (M.N) THEN 180 

230 NEXT M‚N‚X,Y 

240 'voor dubbele nummers 

250 'tussen 65 en 84 

260 FOR Y=i TO 5: FOR X=1 TO 8 

270 IF L(X,Y)>84 THEN LX, Y)=l (X, YI -20 
280 NEXT X,Y: BEEP 

290 'het invoeren van de namen 

300 'van de spelers 

310 CLS: INPUT"Hoeveel spelers"; 

320 DIM S&(S), TS): PRINT 

330 FOR N=i TO S 

340 PRINT"Hoe heet speler "Ni 

350 INPUT S$(N): PRINT: NEXT N 

360 'voor blauw veld en kader 

370 ‘en witte tekens 

380 SCREEN 2: COLOR 15,4,5 

390 'voor het printen van de letters 
400 'voor de kolommen 

410 OPEN"grp:" FOR OUTPUT AS #1 

420 FOR X=65 TQ 72 

430 PRESET (55+(X-645) 420,0) ,4 

440 PRINT #1, CHRS(X): NEXT X 

450 'voor het printen van de cijfers 


‘voor de rijen 

FOR Y=1 TO 5 

PRESET (26, 26+ (Y-1) #28) ‚4 

PRINT #1i,Y: NEXT Y 

‘voor het printen va het kader 

LINE (44,12)-(215,160),7,BF 

‘voor het printen van de vakken 

FOR Y=i TQ 5: FOR X=l TO 8 

‘voor het printen van 1 vak 

GOSUB 1350: NEXT X,Y 

‘voor het opvolgen v.d. 

FOR Q=1 TO S 

‘elke speler twee beurten 

FOR P=i TO 2 

‘wis de laatste keuze 

LINE (0,156+P#8)- (255, 190) ,4,BF 

‘terug naar de gewiste regel 

PRESET (0,156+P#8) ‚4 

PRINT #1,S$(Q)+" speelt"; 

PRINT #1," vakje";sP; 

‘invoer van de keuze 

US=INKEY$: IF V$="" 

X(P)=ASC(UE) -64 

IF X(P)<1 OR X(P)>8 THEN 610 

PRINT #1,V&; 

VS=INKEY$: IF V$="" 

Y(P)=ASC (U$) -48 

IF Y(P)<1 OR Y(P)>S THEN 610 

‘niet twee keer hetzelfde vakje 

IF X(P)=X(P-1)ANDY(P)=Y(P-1) THEN6IO 

‘niet valsspelen 

IF L(X(P),Y(P))=0 THEN 610 

PRINT #1,V& 

‘opent het gekozen vakje 

K=4: X=X(P): Y=Y(P) 

GOSUB 1390 

‘bepaal de letter 

G(P)=Ll (X(P) , YP) ) 

‘print de letter 

GOSUB 1450 

‘voor het volgende vakje 

NEXT P 

‘qa na of de vakken een gelijke 

‘inhoud hebben 

IF G(1)=G(2) THEN 1060 

‘wis de regels 

LINE (0,164)-(255,190),4,BF 

PRESET (0,172) 

PRINT #1,"Misgeraden, " 

‘laat de vakken nog even open 

FOR N=0 TO 4000: NEXT N 

’sluit de vakken 

X=X(1): Y=Y(1): GOSUB 1350 

X=X(2)t Y=Y(2): GOSUB 1350 
‘voor de volgende speler 


spelers 


THEN 670 


THEN 710 


in het vak 


in het vakje 


1010 NEXT Q 

1020 ‘herhaal de rij spelers 
1030 GOTO 570 

1040 'de vakken zijn gelijk 
1050 'tel het aantal punten 
1060 T(Q)=T(G) +1 


1070 
1080 
1090 


62 


LINE (0,164)-(255,190),4,BF 
PRESET (0,172) 
PRINT #1,"Goed geraden." 


1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


FOR N=0O TO 2000: NEXT N 


‘maak de vakken leeg 

XeX(1): Y=Y(1): K=4: GOSUB 1390 
XeX(2): Y=Y(2): K=4: GOSUB 1390 
LEXCID,YCL)) =O LEX(2),Y(2))=0 


’ga na of alle paren gevonden zijn 
FOR Y=1i TO 5: FOR X=1 TO 8 

IF L(X,Y)<>0 THEN 590 

NEXT X,Y 

‘print het resultaat 

SCREEN O 

PRINT"Alle paren gevonden." 


FOR Q=1 TO S: PRINT 
PRINT S$(Q)" heeft"T(G) "paren." 
NEXT Q: PRINT: PRINT 


PRINT"Gebruik voor een volgend "5 
PRINT"spel toets #1." 

‘voor interrupt met de 41 toets 
ON KEY GOSUB 1500 

‘schakel toets f1 in 


KEY (1) ON 

‘wacht op een interrupt 
GOTO 1320 

‘subr. print 1 vak 


‘voor het bepalen van de kleur 
B= X AND 1: B=-B 

IF (Y AND i)=1 THEN B=B+1 

IF ABS(B)=1 THEN K=1i0 ELSE K=15 
‘het berekenen van de plaats 
X2=48+(X-1) 20: XI=X2+20 
Y2=l6+(Y-1) #28: Y3=Y2+28 

‘het printen van het vak 
LINE(X2, Y2) -(X3,Y3) ‚,K, BF 

RETURN 

‘subr. print een letter in het vak 
PRESET (X24+7,Y2+10) ,4 
L&=CHRE(G(P)) ? AS=RIGHTS(LS, 1) 
PRINT #1,A$ 


RETURN 

‘start het programma opnieuw 

KEY (1) OFF: RUN 110 

CLS: PRINT"U speelt dit spel met "5 


PRINT"2 of meer spelers tegen "5 
PRINT"elkaar. Het scherm *; 
PRINT"toont 40 vakjeswaarachter "j 
PRINT" 20 dubbele letters "5 
PRINT"verborgen zijn. Elke speler"; 
PRINT" mag twee vakjes ope-" 
PRINT"nen. Treft hij gelijke "5 
PRINT"letters dan telt dat voor "sj 
PRINT" 1 punt en maa hij nog "; 
PRINT"twee vak-jes openen. Zijn "j 
PRINT"alle paren gevonden dan"; 
PRINT"is het spel ten einde." 
PRINT"Een vakje is te openen "; 
PRINT"door het invoerenvan de "5 
PRINT"kolomletter en het regel"; 
PRINT" nummer, bijv. D4." 

PRINT: PRINT"Gebruik voor het "5 
PRINT"terugkeren naar het" 
PRINT"programma een "5 
PRINT"willekeurige toets." 
GS=INKEY$: IF G$&="" THEN 1720 
GOTO 110 


9. Gokken 


9,1. Eenentwintig 


Eenentwintig is een spel dat is afgeleid van het be- 
kende kaartspel eenentwintigen. Erg veel verschil is 
er niet. Er zijn wat afwijkende spelregels. Ten eer- 
ste kan het slechts worden gespeeld door één per- 
soon tegen de computer. Dat komt omdat de kaar- 
ten nu eenmaal voor iedereen duidelijk zichtbaar 
op het scherm staan. Ten tweede kan zowel door 
de speler als door de computer maar met één sta- 
peltje kaarten worden gespeeld. De computer 
schudt de kaarten en deelt ze uit. Dat wil zeggen hij 
geeft eerst de speler een kaart en daarna zichzelf. 
Dan krijgt opnieuw de speler een kaart. Deze kan 
nu bij toeval hebben gewonnen. Is dat niet het ge- 
val dan neemt de computer zelf ook een tweede 
kaart. Hierna kan ieder voor zichzelf beslissen of 
hij nog meer kaarten wil. Dat gebeurt ook al weer 
om de beurt en kaart voor kaart. De speler kan 
daarvoor op de vraag: KAART? met JA antwoor- 
den of hij nog een kaart wil en met NEE als hij 
past. Ook de computer kan passen. Of dat gebeurt 
is daar merkt de speler niets van. Hij kan met kaar- 
ten vragen doorgaan tot hij voldoende punten bij 
elkaar denkt te hebben. En daar zit dan het gok- 
element in: de speler moet meer punten hebben dan 
de computer maar mag niet meer punten hebben 
dan 21. Heeft hij er meer dan 21 dan heeft hij het 
spel verloren. Dat geldt ook voor de computer. De 
puntentelling wordt dan ook bij het uitreiken van 
elke kaart door de computer bijgehouden en zodra 
de grens van 21 punten is gepasseerd wordt het spel 
gestopt. Het spel stopt ook indien de speler of de 
computer precies 21 punten heeft. Degene die die 
eer te beurt valt heeft het spel gewonnen. Er wordt 
met 32 kaarten gespeeld, van de vier kleuren: alle 
kaarten boven de 6. Voor de puntenwaarde van de 
kaarten geldt de boer voor 1 punt, de vrouw voor 
2, de heer voor 3 en het aas voor 11 of 1, De andere 
kaarten hebben een waarde die gelijk is aan hun 
nummer. De waarde van een aas wordt op 11 
gesteld, tenzij de speler een kaart krijgt waardoor 
zijn puntentotaal boven de 21 uitkomt. Dan wordt 
de waarde van het aas automatisch teruggebracht 
op |. Heeft de speler twee azen dan wordt de waar- 


de van een van de twee tot 1 teruggebracht als het 
totale puntenaantal meer wordt dan 21. Wordt 
daarna de totale puntenwaarde weer meer dan 21 
dan wordt ook de tweede aas in waarde vermin- 
derd. 

Na het starten van het programma krijgt u uw twee 
kaarten te zien. De kaarten van de computer krijgt 
u niet te zien. De computer is overigens eerlijk, hij 
kijkt ook niet in uw kaarten! Nu kunt u door JA 
in te voeren nog een kaart krijgen en daarna even- 
tueel nog meer, net zo lang tot u past. Heeft de 
computer nog niet gepast dan gaat deze door tot 
ook deze past. Nu worden de kaarten van de com- 
puter getoond en wordt de uitslag bekend ge- 
maakt, met het aantal punten van de speler en van 
de computer. Dat gebeurt ook als een van de twee 
voor die tijd 21 punten of meer dan 21 punten 
heeft. Door de fl-toets in te drukken kunt u een 
volgend spel spelen. 


10 ‘eenentwintig 

20 KEY OFF 

30 ’voor blauw veld en kader 

40 ‘en witte tekens 

50 SCREEN O0: WIDTH(40): COLOR 15,4,4 
60 PRINT"Wilt u een aanwijzing, ja "5 
70 INPUT"of nee";GS 

80 IF G$="ja" THEN 1950 

90 IF G&>"nee” THEN SO 


610 
620 
630 


voor interrupt met de f1 toets 
ON KEY GOSUB 2200 

‘voor een groen veld en kader 

len blauwe tekens 

SCREEN 1: WIDTH(32): COLOR 4,3, 12 
‘voor een echt randomgetal 
A=RND (-T IME) 

‘voor het overnemen van karakters 
FOR A= O TO 3: FOR B=O TO 7 

VPOKE 1904+8#A+B, VPEEK (24+8#A+B) 
NEXT B‚A 

‘voor de kleuren van de karakters 
VPOKE 8221,99: VPOKE 8222,19 

‘het printen van de titel 

PRINT TAB(9) "Eenentwintig, ": PRINT 
PRINT" Jouw kaarten. "5 
PRINTTAB(19) "Mijn kaarten," 
SS=CHRE (238) +CHRE (239) 
S$=SE+CHRE(240) +CHRE(241) 

‘voor de soort kaarten 
K&="BUH78IJAA" 

‘voor de waarde van de kaarten 
‘en vorm de stapels 

FOR S=1 TO 5: FOR K=t TO 9 


READ A(S,K): NEXT K? RESTORE: NEXT S 


‘eerste kaart voor de speler 


GOSUB 1250: Nel; JS(N)=R$: Q=3: YQ=d 


‘print de kaart op het scherm 
GOSUB 1380 

‘eerste kaart voor de computer 
GOSUB 1250: MS(N)=R$: GOSUB 1770 
‘tweede kaart voor de speler 
GOSUB 1250: N=2: JS(N)=R$: YQ=6 
‘print de kaart, tel de punten 
GOSUR 1380: GOSUB 1510 

’VJ=t bij groter dan 21 

IF VJ=1 THEN 1000 

'WI=i bij 21 punten 

IF WJ=1i THEN 1000 

‘tweede kaart voor de computer 
GOSUB 1250: MS(N)=R$ 

tel de punten voor de computer 
'VM=1 bij groter dan 21 


GOSUB 1770: IF VM=i THEN 1000 
'WM=i bij 21 punten 

IF WM=1 THEN 1000 , 

‘als de speler heeft gepast (NJ=1) 
'is de beurt voor de computer 
N=N+t1: IF NJ=l THEN 730 


‘speler heeft noq niet gepast 
‘kan nog een kaart nemen 

LOCATE 11,YQ: PRINT"Kaart "5 

'als speler past q$="nee" 

INPUT G$; IF G$="nee" THEN 960 
IF G${>"ja" THEN 610 

‘de speler neemt nog een kaart 
GOSUB 1250: J&(N)=RE: YQ=YO42 
‘print de kaart 

GOSUR 1380 

‘tel de punten van de speler 
GOSUB 1510: IF VJ=1i THEN 1000 

IF WJ=i THEN 1000 

‘doorgaan als computer past (NM=1) 
IF NM=1 THEN 920 

’qa na of de computer moet passen 
IF TM>17 THEN 980 

FOR T=i TO N 

K=VAL (RIGHTS (M$ (T) , 1)) 

IF K=8 THEN 860 


NEXT T: P=0: U=0: FOR S=1 TO 4 
FOR K=1 TO 8: AzA(S,K) 

IF A=0 THEN 840 
P=P+1 

IF (A={<{21-TM)) OR (Azii) THEN Uz=llt1 
NEXT K‚S: IF U<(P/2) THEN 980 
‘de computer neemt noq en kaart 
GOSUB 1250: MS(N)=R$ 

‘tel de punten 
GOSUB 1770 

IF VM=1 THEN 1000 

IF WM=1 THEN 1000 

‘als beide passen NJ=l en NM=1 
IF NJ=i AND NM=i THEN 1190 

‘voor de volgende ronde 
GOTO 580 

‘speler heeft gepast 
NJ=1; GOTO 730 

‘computer heeft gepast 
NM=1: GOTO 920 

‘het printen van het resultaat 
W$="Jij bent" 

IF VJ=i OR WM={ THEN W$="Ik ben" 
‘bewaar het laatste regelnummer 
YR=YQ 

‘print de kaarten v.d, computer 
GOSUB 1900 

‘bepaal het hoogste regelnummer 
IF YR>YQ THEN YQ=YR 

YQ=YQ+3: LOCATE O,Y@ 

PRINT" Jouw punten: "TAB(20) ; 
PRINT"Mijn punten: ” 

PRINT TAB(2) TJ TAB(26) TM: PRINT 
PRINT TAB(2) W$" winnaar!" 
PRINT: PRINT"Nog een spel? "; 
PRINT"gebruik toets #1." 
‘schakel toets fl in 

KEY (1) ON 

‘wacht op een interrupt 

GOTO 1180 

W$="Jij bent" 

IF TM)TJ THEN W$="Ik ben" 

IF TM=TJ THEN W$="geen” 

GOTO 1050 

‘subr, geeft een kaart 

‘bepaal de kaartkleur 
S=INT(RND(1) 441) 

‘bepaal de kaartsoort 
K=INT(RND(1) 841) 

‘opnieuw als de kaart al 

'is uitgegeven 

IF A(S,K)=0 THEN 1250 

stel de kaart samen 

RE=STRE(S) +STRE(K) 

‘haal de kaart van de stapel 
ALS,K) =0 

RETURN 

‘subr. print 1 kaart op het scherm 
‘bepaal het kleurnummer 
S=VAL(LEFTS (R$, 2) ) 

‘bepaal het kaartnummer 

K=VAL (RIGHTS (R$, 1) ) 

‘bepaal het kaartsymbool 
KIS=MIDS(KS,K, 1) 

IF Ki$="J" THEN Ki$="10" 
‘bepaal het kleursymbool 
SIS&=MIDS(S$,S, 1) 

‘print de symbolen 

LOCATE Q,YQ: PRINT S1$;K1$ 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


RETURN 

‘subr. telt de punten v.d. speler 
‘voor het aantal uitgegeven kaarten 
TJ=0: FOR T=i TO N 

‘bepaal de puntenwaarde 

‘en tel de punten op 

K=VAL (RIGHTS(JS(T) ,1)) 
T(T)=ACS,K): TJ=TJ+T(T) 

'ga na of het aantal punten 

‘te groot is 

IF TJ>21 THEN 1660 

‘qa na of het spel gewonnen is 

IF TJ=21 THEN WJ=1 

‘voor de volgende kaart 

NEXT T 

RETURN 

‘aant. punten te groot 

‘zoek naar een aas 

FOR P=1i TO N 

K=VAL (RIGHTS (JS (P) , 1)) 

IF K=8 THEN 1730 

NEXT P 

‘geen aas gevonden, verloren 

VJ=l: RETURN 

‘een aas gevonden, maak de waarde 1 
J&(P)=LEFT$S(IJE(P) ,2)+"9" 

TJ=TJ-10: GOTO 1620 

’'subr. berekent de punten 

‘van de computer 

TM=0: FOR T=i TO N 

K=VAL (RIGHTS (MS (T) , 1)) 
T(T)=ACS,K) : TM=TM+T(T) 

IF TM>21 THEN 1830 

IF TM=21 THEN WM=1 

NEXT T: RETURN 

FOR P=i TO N 

K=VAL (RIGHT (M$ (P) , 1) ) 

IF K=8 THEN 1870 

NEXT P: VM=1: RETURN 

M$ (P)=LEFTS(MS(P),2)+"9" 

TM=TM-10: GOTO 1820 

’subr. print de kaarten v.d. comp. 
Q=27: FOR U=i TO Ni: Y@=2+4+24U 

R$=M$ (LI) 

IF M&(U)="" THEN RETURN 

GOSUB 1380: NEXT U: RETURN 

DATA 1,2,3,7,8,9,10, 11,1 

CLS: PRINT"Eenentwintig is een "j 
PRINT"kaartspel dat 1 spe-ler "j 
PRINT"met de computer speelt, "4 
PRINT"De computer schudt en "$ 
PRINT"geeft de kaarten, eerst de" 
PRINT"speler en dan zichzelf 1 "5 
PRINT"kaart. Na de": PRINT"tweede"; 
PRINT" kaart kan men passen "j 
PRINT"met nee, of nog een nemen "4 
PRINT"met ja. 21 punten wint," 
PRINT"meer dan 21 punten "5 
PRINT"verliest, anders wint"; 
PRINT"het grootste aantal punten. "; 
PRINT" Alleen de kaarten hoger "5 
PRINT"dan é worden gebruikt." 
PRINT"Voor de punten: boer (B)=l,"5 
PRINT" vrouw (V)=2,heer (H)=3 "4 
PRINT"en aas (A)=l of 11," 

PRINT: PRINT"Gebruik voor het "5 
PRINT"terugkeren naar het" 
PRINT"programma een "4 
PRINT"willekeurige toets." 


2170 GS=INKEYS: IF G$="" THEN 2170 
2180 GOTO 110 

2190 'start het programma opnieuw 
2200 KEY(1) OFF: RUN 110 


9.2. Het lottoformulier 


Zelf bepalen welke nummers u op het lottoformu- 
lier zult aankruisen, dat betekent tevens dat u het 
lot in eigen hand neemt. Wilt u dat niet dan kunt 
u door de computer laten bepalen welke getallen u 
moet aankruisen. U kunt het volgende programma 
daarvoor gebruiken. 

Na het starten van het programma dient u in te 
voeren hoeveel kolommen u wilt spelen. Daarna 
geeft de computer op het scherm evenzoveel regels 
van zes getallen tussen 1 en 41. Hiermee kunt u dan 
uw lottoformulier invullen. 


10 ’lotto 

20 ’voor interrupt met de toets #1 
30 ON KEY GOSUB 420 

40 ’voor een echt randomgetal 

50 A=RND(-TIME): KEY OFF 

60 'voor blauw veld en kader 

70 ‘en witte tekens 

80 SCREEN Os WIDTH(40); COLOR 15,4,4 
FO ‘het printen van de titel 

100 PRINT TAR(16) "Lotto, * 

110 PRINT: PRINT: PRINT 

120 'invoer aantal kolommen 

130 INPUT"Hoeveel kolommen wilt u*;K 
140 'voor aantal kolommen 

150 FOR T=1 TO K 

160 ‘voor zes getallen per kolom 
170 FOR N=i TO 6 

180 'randomgetallen van 1 tot 41 
190 GIN)=INT(RND(IJ 4141) 

200 'geen dubbele getallen 

210 FOR Msi TO N 

220 IF G(M)=G(N) AND M/)N THEN 190 
230 NEXT M‚N 

240 ‘sorteer de getallen 

250 FOR N=0 TO 4: FOR M=i TO S-N 
260 IF G(M)<G(M+1) THEN 280 

270 SWAP G(M),G(M+1) 

280 NEXT M‚N 

290 ’print 1 kolom 

300 PRINT: FOR N=i TO 6 

310 PRINT TAB(3+44N)G(N) ; 

320 NEXT N: PRINT: PRINT 

330 ’voor de volgende kolom 

340 NEXT T: PRINT 

350 PRINT"Gebruik voor een volgende "5 
360 PRINT"serie toets 41" 

370 'schakel toets #1 in 

380 KEY(1) ON 

390 'wacht op een interrupt 

400 GOT) 400 

410 ‘start het programma opnieuw 
420 KEY(1) OFF: RUN 


65 


10. Morse cursus 


Het leren ontcijferen van de morsecode, dus het 
leren verstaan van de morsecode, en het in ver- 
staanbare taal omzetten van een in morsecode uit- 
gezonden bericht, is vooral een kwestie van rou- 
tine: van zeer vaak doen dus. Opleidingsinstituten 
beschikken over een schat aan lesmateriaal waar- 
mee de cursisten uitgebreid kunnen oefenen. Dat 
materiaal heeft iemand die het zichzelf wil leren, 
zoals veel radioamateurs, niet. Voor de MSX- 
bezitters is er een oplossing, de morse-cursus, die 
u in dit hoofdstuk wordt aangeboden. Deze cursus 
omvat het leren van de code en het oefenen in het 
ontcijferen hiervan. Hij is daarom uit twee gedeel- 
ten opgebouwd: morse leren en morse oefenen. 


10.1. Morse leren 


Dit gedeelte van de cursus omvat een zestal lessen. 
Deze hebben tot doel om u de morsecodetekens te 
leren herkennen, ook al worden ze met grote sein- 
snelheid ten gehore gebracht. Het gebruik van dit 
programma is eenvoudig: na het starten kunt u de 
seinsnelheid invoeren en het lesnummer kiezen. 
Uiteraard kiest u om te beginnen een lage seinsnel- 
heid, bijvoorbeeld 5 woorden per minuut door een 
$ in te voeren en natuurlijk les 1. Hierna worden 
vier letters en een cijfer op het scherm geschreven: 
e, i, h, sen de $ met de daarbij behorende morse- 
codes (enkel punten). Nu hoort u uit de luidspreker 
van uw tv de morsecode van één van deze tekens. 
Het enige wat u hebt te doen, is de toets met de be- 
treffende letter of het cijfer indrukken in de 
SHIFT-mode. Het beste is het om hiervoor de 
CAPS LOCK toets in te drukken. De computer 
vertelt of u het goed hebt gedaan. Heeft u een fout 
gemaakt dan meldt hij dat, met vermelding van het 
teken dat u wel had moeten gebruiken. Pas na het 
indrukken van de toets krijgt u het volgende code- 
teken te horen waarvoor u weer een toets moet in- 
drukken (de goede) enzovoorts. Dit herhaalt zich 
twintig keer. Dan verschijnen er weer een aantal te- 
kens, onder de voorgaande op uw scherm (t‚ m, o 
en 0). Hiervan zijn de morsecodetekens alleen 
maar opgebouwd uit strepen. Van deze nieuwe 
tekens krijgt u wederom twintig keer een morse- 
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codeteken te horen. Dit is het tweede gedeelte van 
de les. 

Het derde gedeelte van de les combineert het eerste 
en het tweede gedeelte. Het vierde gedeelte is voor 
de eerste les hetzelfde als het derde gedeelte. Nu 
wordt vanzelf overgegaan naar les 2. Deze gaat 
overeenkomstig les 1, met uitzondering van het 
vierde gedeelte. Dit betrekt er tevens de tekens van 
de eerste les bij. Ook nu wordt automatisch over- 
gegaan naar de volgende les. In het vierde gedeelte 
worden steeds alle tekens van de voorgaande lessen 
herhaald. Mocht u merken dat u teveel fouten gaat 
maken dan moet u stoppen en op een wat later tijd- 
stip weer beginnen met les 1. Het vierde gedeelte 
van de lessen is bij elke volgende les langer omdat 
er steeds meer tekens bij betrokken raken. Heeft u 
de zesde les geheel doorlopen en heeft u daarbij 
geen of slechts een enkele fout gemaakt, dan begint 
u opnieuw, echter met een hogere seinsnelheid. Dit 
herhaalt u net zo lang totdat u de laatste les feilloos 
doorkomt bij een seinsnelheid van 16 woorden per 
minuut. Op deze seinsnelheid kom ik nog terug bij 
de beschrijving van de laatste les. 

De volgende codetekens zijn hier gebruikt: 


AHOVOZZR-= KOMT W> 
| 
| 


Morse leren. 


120 READ A(X,Y): NEXT X,Y 
nnen 130 FOR Y=1 TO 6: FOR X=t TO 9 
me 140 READ B(X,Y): NEXT X,Y 
150 PRINT: INPUT"Welke les";LS 
160 IF LS>é6 THEN CLS: GOTO 150 
opm jp 170 INPUT"Welke seinsnelheid";W 
mm SO 180 T=INT(S10.54/W-7,138): T3=3kT+20 
190 Q=20: P=S5: M=0O: QL=LS 
200 QP=1i: LP=i: PizS 


OS OOI UREN HSC 


= —_ 210 CLS 

spatie en en 220 PRINT TAB(14) "Morse leren, * 
230 PRINT: PRINT"Les"LS 

( nl jv 240 PRINT 


4 ne 250 FOR X=1 TO Pi: TN=A(X,LS): T$="" 
‚ 260 IF TN=O THEN 360 

8 : 270 FOR N=i TQ 7: TN=INT(TN/2) 

280 IF TN=1 THEN 330 

290 IF (TN AND i)=1 THEN 310 

300 T&(N)=CHR$(45): GOTO 320 


De volgende tekens zijn niet in het programma op- 310 TSN) =CHRS (46) 


genomen omdat hiervoor geen toetsen beschikbaar 320 NEXT N 
zijn: 330 FOR U=N-1 TO 1 STEP -1 
340 T&=T&+T&(U): NEXT U 
2 350 PRINT: PRINT CHR$S(B(X,LS))* “T$ 
begin ee 360 NEXT X 
eind mn mpm 370 PU=O: FOR V=t TO Q 
Tort 380 FOR Z=1t TO 500: NEXT Z 
sluiten AN an kn 390 X=INT (RND (1) #P+QP) 
wacht Nt 400 Y=INT (RND (1) #LP+QL) 


410 TN=A(X,Y): IF TN=0 THEN 390 
420 LOCATE 20,10 


Voor de goede orde: een gedeelte van een les wordt 430 GOSUB 720 

door de computer herhaald als u meer dan 1/3 deel 440 BIS=INKEY$: IF BI$="" THEN 440 

…L re : t ' 450 IF BIS=CHR$(B(X,Y)) THEN 470 

van de tekens fout hebt ingevoerd! 460 PRINT“Fout, "CHRS(B(X,Y)): GOTO 480 
470 PRINT"Goed. *: PU=PU#1 
480 NEXT V 

10 'morse leren 490 FOR Z=0 TQ 1000: NEXT Z 

20 ON KEY GOSUB 1040 500 IF PUX2#0/3 THEN 690 

30 A=RND(-TIME): KEY OFF 510 M=M+1: QP=6 : P1=9: P=4 

40 SCREEN O: WIDTH(40): COLOR 15,4,4 520 IF LS=& THEN 540 

50 SOUND 0,135 530 IF M= THEN 210 

60 SOUND 1,0 540 QP=1: P=9: IF LS=6 THEN 680 

70 SOUND 7,62 550 IF M=2 THEN 210 

80 SOUND 8,15 560 Q=Q4LS: QL=1: LP=LS 

90 FOR L=i TO 30: NEXT L 570 IF M=3 THEN 210 

100 SOUND 8,0 580 LS=LS+1: IF LS>6 THEN 600 

110 FOR Y=1 TO 6: FOR X=1 TO 9 590 IF M>3 THEN 190 
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600 CLS: PRINT"U hebt alle "; 

610 PRINT"lessen gehad. Probeer " 

620 PRINT"eens opnieuw met "5 

630 PRINT"een hogere snelheid," 

640 PRINT: PRINT"Gebruik hiervoor "5 
650 PRINT"toets #1," 

660 KEY(1) ON 

670 GOT 670 

680 M=M+2: GOTO 560 

690 CLS: PRINT"Slecht resultaat, "5 

200 PRINT"opnieuw dezelfde les," 

210 FOR N=i TO 1000: NEXT: GOTO 210 

720 FOR N=t TO 7: TN=INT(TN/2) 

730 IF TN=1 THEN 780 

240 IF (TN AND 1i)=i THEN 760 

250 TIN)=T5: GOTO 770 

760 T(N)=T 

770 NEXT N 

780 ON N-1 GOTO 890,870,850,830,810, 790 
790 SOUND 8,15: FOR L=O TO T(6): NEXT L 
800 SOUND 8,0: FOR L=0 TO T: NEXT L 

810 SOUND 8,15: FOR L=O TO T(5): NEXT L 
820 SOUND 8,0: FOR L=0 TO T: NEXT L 

830 SOUND 8,15: FOR L=z0 TO T(4): NEXT L 
240 SOUND 8,0: FOR L=O TO T: NEXT L 

850 SOUND 8,15: FOR L=O TO T(3): NEXT L 
860 SOUND 8,0: FOR L=O TO T: NEXT L 

870 SOUND 8,15: FOR L=O TO T(2): NEXT L 
880 SOUND 8,0: FOR L=0 TO T: NEXT L 

890 SOUND 8,15: FOR L=O TO T(1): NEXT L 
900 SOUND 8,0: FOR L=O TO T: NEXT L 

910 RETURN 

920 DATA 6,14,30,62,126,4,8,16,64 

930 DATA 12,28,60,124,0,10,22,46,94 

940 DATA 58,54,0,26,50,20,44,92,188 

950 DATA 24,48,96,112,120,18,38,78,70 
960 DATA 36,40,42,66,152,90,212,170,142 
970 DATA 194,164,108,230,0,0,0,0,0 

980 DATA 69,73,83,72,53,84,77,79,48 

990 DATA 65,85,86,52,0,78,68,66, 54 

1000 DATA 70,76,0,82,80,75,88,61,45 
1010 DATA 87,74,49,50,51,71,90,55,56 
1020 DATA 81,89,67,57,44,47,46,59,58 
1030 DATA 39,40,32,63,0,0,0,0,0 

1040 KEY(1) OFF? RUN 


10.2. Morse oefenen 


Met dit deel kunt u vaardigheid verkrijgen in het 
ontcijferen van morsecodetekens. Als u met het 
vorige programma de tekens feilloos hebt leren 
herkennen, ook bij hogere snelheden, dan kunt u 
zich aan dit gedeelte van de cursus wagen. Na het 
starten van het programma kunt u de gewenste 
seinsnelheid invoeren. Begin uiteraard weer met 
een lage snelheid! Direct daarna hoort u uit de 
luidspreker van uw tv de morsecodetekens van let- 
ters, cijfers en leestekens in een willekeurige volg- 
orde, steeds in groepjes van vijf. Deze groepjes 
worden woorden genoemd, ook al leveren deze 
woorden geen verstaanbare taal op. De bedoeling 
is dat u direct na het horen van een morsecode- 
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teken de toets met het bijbehorende schriftteken 
indrukt (denk erom: CAPS LOCK toets inge- 
drukt!). In elk geval moet u alle tekens van een 
woord hebben ingevoerd voordat het volgende 
woord te horen is. Maakt u hierbij een fout dan 
wordt deze geteld. Maakt u in een woord meerdere 
fouten dan worden deze als één fout aangemerkt. 
Steeds wordt het door u ingetypte woord op het 
scherm zichtbaar gemaakt direct vóór het begin 
van het volgende woord. De woorden zijn te her- 
kennen door de langere pauze tussen de groepjes. 
Het aantal woorden dat u in een serie krijgt, is af- 
hankelijk van de seinsnelheid. Denkt u het sneller 
te kunnen dan verhoogt u de seinsnelheid. Deze 
seinsnelheid wordt uitgedrukt in het aantal woor- 
den per seconde. Dit is in overeenstemming met 
wat officeel gebruikelijk is. Wat niet gebruikelijk 
is, is dat de woorden die worden gebruikt voor het 
bepalen van de seinsnelheid ook cijfers en leeste- 
kens bevatten. Voor het bepalen van de seinsnel- 
heid is uitgegaan van het woord PARIS. Dit bevat 
50 eenheden en elke eenheid heeft de tijdsduur van 
een punt. Omdat de woorden die u krijgt voorge- 
schoteld ook leestekens en cijfers bevatten duurt 
een serie langer dan in overeenstemming is met de 
ingevoerde seinsnelheid. Haalt u met de computer 
een seinsnelheid van zestien woorden per seconde 
dan bent u in staat elk examen dat zestien woorden 
per minuut verlangt, zonder kleerscheuren door te 
komen (uiteraard alleen het opnemen). 


10 ‘morse leren 

20 ON KEY GOSUB 780 

30 A=RND(-TIME): KEY OFF 

40 SCREEN 0: WIDTH(40): COLOR 15,4,4 
50 SOUND 0,135 

60 SOUND 1,0 

20 SOUND 7,62 

80 SOUND 8,15 

90 FOR L=i TO 30: NEXT L 

100 SOUND 8,0 

110 FOR Y={ TO 6: FOR X=i TO 9 

120 READ A(X,Y): NEXT X,Y 

130 FOR Y=t TQ 6: FOR X={i TO 9 

140 READ B(X,Y): NEXT X,Y 

150 INPUT"Welke seinsnelheid";W 

160 PQO=INT(S#W): FOR N=0 TO 2000: NEXT 
170 T=INT(S10.54/W-7.138): T3=3#T+20 
180 T4=T3-50: T7=74T 

190 CLS 

200 PRINT TAB(14) "Morse leren." 

210 FOR Q=1 TO PQ 

220 TG&="": TN$="": FOR P=i TO 5 

230 X=INT(RND(1)#G+1) 

240 Y=INT(RND(I)#6+1) 

250 TN=A(X,Y): IF TN=0O THEN 230 

260 TNS=TNS+CHRSE(B(X, Y)) 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


FOR L=O TO T4: NEXT L 

GOSUB 460: NEXT P 

FOR L=i TO T7 

GS=INKEY$: IF G$<)"" THEN 440 
NEXT L 

IF TG&<>TN$ THEN 450 

PRINT TG&: NEXT Q 

QP=INT (PU#100/PQ) 

PRINT: PRINT 

PRINT"U heeft"PU"fouten in"PQ; 
PRINT"woorden. ": PRINT 

PRINT"Dat is"QP"%," 

PRINT: PRINT: PRINT 

PRINT"Gebruik voor een volgende * 
PRINT"serie de *$: PRINT"f1 toets," 
KEY (1) ON 

GOTO 430 

TG&=TG$+G$&: GOTO 310 

Pu=PU+1: GOTO 330 

FOR N=i TQ 2: TN=INT(TN/2) 

IF TN=1 THEN 520 

IF (TN AND 1)=1 THEN 500 

T(N)=T3: GOTO 510 

TAN) =T 

NEXT N 

ON N-1 GOTO 630,610,590,570,550, 530 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
RETUR 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
KEY (1 


8,15: FOR L=O TO T(6): NEXT 
8,0: FOR L=0 TO T: NEXT L 
8,15: FOR L=O TO T(5): NEXT 
8,0: FOR L=O TO T: NEXT L 
8,15: FOR L=0 TO T(4): NEXT 
8,0: FOR L=0 TQ T: NEXT L 
8,15: FOR L=0 TO T(3): NEXT 
8,0: FOR L=O TO T: NEXT L 
8,15: FOR L=O TO T(2): NEXT 
8,0: FOR L=O TO T: NEXT L 
8,15: FOR L=O TO T(1): NEXT 
8,0: FOR L=0 TO T: NEXT L 
N 

6,14,30,62,126,4,8,16,64 
12,28,60,124,0,10,22,46,94 
58,54,0,26,50,20,44,92,188 
24,48,96,112,120,18,38,78,70 


ak a a AE 


36,40,42,66,152,90,212,170,142 


194,164,108,230,0,0,0,0,0 
69,73,83,72,53,84,77,79,48 
65,85,86,52,0,78,68,66,54 
70,76,0,82,80,75,88,61,45 
87,74,49,50,51,71,90,55,56 
81,89,67,57,44,47,46, 59,58 
39,40,32,63,0,0,0,0,0 

) OFF: RUN 


69 


B 


LE 


